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Automatización de Oficinas 


PANASONIC Y ATARI 


SE ENTRETIENEN JUNTOS... 


...Y cómo lo hacen! 

Desde el momento en que la Im¬ 
presora KX-P1081 de PANA¬ 
SONIC se dio cuenta que era ab¬ 
solutamente compatible con el 
microcomputador ATARI, se lo 
pasan juntos todo el día. 

La Impresora KX-P1081 de 
PANASONIC ya tiene ex¬ 
periencias anteriores, y siempre 
demostró ser realmente 
compatible. 

Ahora, con el microcomputador 
ATARI está nuevamente feliz: 


gráfica todo el día, comprime y 
hace las veces de una perfecta 
secretaria con una tipografía que 
es todo un lujo! 

Y si quiere saber aún más, im¬ 
prime listados a 120 CPS en su 
modo DRAFT, obteniendo su co¬ 
rrespondencia en modo NEAR 
LETTER QUALITY a 24 CPS, y 
cuadros en modo COMPRES- 
SED a 102 CPS. todo con una 
absoluta nitidez. No en vano la 
llaman la rápida y perfecta! 
Pregunte por cualquiera de las 
Impresoras PANASONIC que hay 


en nuestro mercado 
(la KX-P1082, KX-P1592 o la 
KX-P1595), y vera que todas son 
100% compatibles con los 
microcomputadores ATARI. 

Esta confiabilidad y durabilidad, y 
una calidad a toda prueba, asegu- 
rán una relación perfecta... y por 
mucho tiempo. 

Línea de Impresoras PANA¬ 
SONIC para satisfacer todas las 
necesidades, incluso la más 
exigentes. 

Un acierto tecnológico que 
sintetizó todas las características 
que en otros son opcionales. 
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Editorial 


M UNDOATARI dedica la presente editorial a todos los lectores que 
con distintos modos de expresión a lo largo deLpaís, constituyen 
un estímulo permanente en nuestro trabajo. 

En efecto, MUNDOATARI se fortalece con las opiniones y acciones 
y renueva esfuerzos para cumplir con las metas dedicadas exclusivamente 
a crear una auténtica familia atariana. 

La organización será una meta de primera instancia para la acción 
concreta hacia la comunidad atariana. Creemos importante la formación 
de grupos de usuarios en los colegios, empresas, instituciones y ciudades. 

MUNDOATARI será el núcleo inicial para fijar sus directivas, 
metas de trabajo, cursos, intercambio, etc. 

El ATARI CLUB DE CHILE constituye otro punto de soporte 
para este fin. La acción conjunta permitirá lograr los fines propuestos. 

Actualmente existen a lo largo de nuestro país distintas agrupaciones. 
Para MUNDOATARI resultará muy motivador recibir información de 
todo tipo acerca de las experiencias alcanzadas por ellas. Dependiendo de 
las disponibilidades de espacio, divulgaremos estos testimonios a través 
de una nueva columna. 

Para los grupos actuales MUNDOATARI planificará una cooperación 
a base de información técnica, programas y otras tendientes a vitalizar 
la actividad presente. 

No debemos olvidar el objetivo primordial "formar una gran familia 
atariana a lo largo del país", donde la acción determinante está en las 
manos de cada uno de ustedes, amigos lectores. 

La respuesta a la interrogante ¿cómo puedo contribuir a formar un 
grupo de usuarios con mis amigos? será la definición del trabajo inicial. 

Para nosotros será una gran satisfacción el comunicar en un futuro 
próximo que la TAREA ha sido CUMPLIDA. 

Hasta el próximo mes. 


MUND0ATARI 
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Revista con información exclusiva 
para microcomputadores ATARI 
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EQUIPOS 





Transforme fácil mente su ATARI 
en un poderoso artista gráfico ... 


Tablero Gráfico 

CX-77 




Ingrese al fabuloso mundo del 
dibujo artístico por computa¬ 
ción. 

¿Cómo se logra dibujar sofis¬ 
ticadas imágenes en la pantalla? 
Muy sencillo. Conecte un tablero 
gráfico CX-77 TOUCH TABLET 
directamente a su computador 
ATAR! 800 XL ó 130 XE en la 
puerta del joystick, inserte el 
cartucho ATARI ARTIST que 
viene con el tablero en la consola 
del computador y listo. Ya se 
encuentra en condiciones de co¬ 
menzar a pintar utilizando todas 
las capacidades de color del com¬ 
putador. 

Además de ser sumamente 
entretenido pintar utilizando 
este accesorio para el computa¬ 
dor, es también muy fácil de 
usar, dado que el software entre¬ 
ga una serie de herramientas de 
dibujo, como ser: círculos, cua¬ 
drados, elipses, líneas rectas, pin¬ 
celes de diferentes tamaños, ca¬ 
pacidad de espejos, rayos, relle¬ 
nar áreas con un color, realizar 
ampliaciones de un área de la 
pantalla (zoom), paleta de múlti¬ 
ples colores y mucho más. 

De esta forma cualquier cosa 
que usted dibuje sobre el tablero 
gráfico con el lápiz especial que 
trae, aparecerá instantáneamente 
en la pantalla de su televisor o 
monitor, con los colores que 
escogió. 

Una vez realizado su dibujo 
con este sistema, tiene la posibi¬ 
lidad de almacenarlo en diskette 
o casete para un uso posterior o 
bien, realizar posteriores modifi¬ 
caciones a un diseño ya hecho. 

El tablero gráfico CX-TOUCH 
TABLET es una excelente herra¬ 
mienta de dibujo artístico y de 
desarrollo de la creatividad de las 
personas, especialmente de los 
más pequeños, que podrán vol¬ 
car toda su imaginación en la 
creación de dibujos multicolores. # 

En las ilustraciones se muestra una 
visión del tablero gráfico, menú de 
opciones y una pantalla de ejemplo. 
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NOTICIAS 


ATARI 

EN SOFTEL ‘87 


COELSA COMPUTACION participará una 
vez más con su línea de microcomputadores 
ATARI en SOFTEL'87. 

La exposición Informática y Telecomuni¬ 
caciones SOFTEL '87 es un evento de proyec¬ 
ción nacional e internacional, que durante la se¬ 
mana del 3 al 7 de agosto reunirá a la mayoría 
de los proveedores de equipos computaciona- 
les y servicios. 

ATARI exhibirá en esta oportunidad una 
amplia gama de productos y nuevos servicios 
vigentes para los miles de usuarios, entre ellos 
se destacan: 

1. ATARI CLUB DE CHILE 

2. Ultimas novedades de software en español 

3. Sistema de comunicaciones de BBS ATAR I 
COELSA 

4. Hardware ATARI ST (de 16 y 32 bits) 

5. Aplicaciones para ATARI ST. 

MUNDOATARI recomienda a todos sus 
lectores visitar la exhibición de COELSA COM¬ 
PUTACION, por la variada información actual 
que será presentada. Ello resultará de mucha 
utilidad en el mejor aprovechamiento de sus 
computadores. 

SOFTEL '87, como todos los años, se lle¬ 
vará a cabo en las instalaciones del Centro de 
Exposición del Hotel Holíday Inn Crowne 
Plaza, ubicado en Alameda Bernardo O'Higgins 
136. 



HORARIO: De Lunes a Viernes 

de 14:30 a 20:30 hrs. 
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PROGRAMAS 
PARA USTED 


— UTI 03 (manejo banco secundario 130XE) 
— DOS 2.5 (manejo del DOS de ATARI) 

- MAPA DE MEMORIA (uso localizaciones) 
— ASSEMBLER I (lenguaje de máquina) 

- PROGRAMACION ESTRUCTURADA 

Aprendizaje de Lenguaje BASIC 

- BASIC BASICO (para 130XE) 

- 33 LECCIONES PARA ATARI (800XL) 

- BASIC AVANZADO 

- PRACTICANDO CON ATARI BASIC 

- 30 RUTINAS PARA ATARI 

- 60 FORMULAS PARA ATARI 

Uso y manejo de técnicas 

- LISTA DE DESPLIEGUE 

- SET DE CARACTERES 

- SCROLLING 

- PLAYER/MISSIL 

— DLI (Display List Interrupt) 

— VBI (Vertical Blank Interrupt) 

Colecciones 

- ENCICLOPEDIA 800 XL 

- ENCICLOPEDIA 130 XE 

- TECNICAS PARA ATARI 


Solicite demostración en Centros ATARI 
y distribuidores autorizados a lo largo del país 


CnFCj SOFTWARE PARA 
SISTEMA COMPUTADORES 


AlARI 
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NOTICIAS 


CLUB ATARI DE CHILE: 


Informa 


Se invita a todos los socios del ATARI CLUB DE 
CHILE, a participar en un novedoso y original 
concurso destinado a encontrar un "logotipo' 7 al 
Club, que todos integramos. 

Para estos efectos, COELSA COMPUTACION en 
conjunto con la revista MUNDOATARI han 
organizado este evento, que permitirá participar 
a todos los socios del Club, aportando su cuota de 
imaginación y creatividad, en la búsqueda de un 
diseño original para el ATARI CLUB DE CHILE. 
La forma de participar en este concurso es muy 
simple y está abierta a todos los socios del Club. 


BASES 


1. El diseño del logotipo del 
club debe ser realizado con 
un computador ATARI, utili¬ 
zando algún programa de di¬ 
bujo como: CX-77 Touch 
Tablet, CX-75 Lápiz de Luz, 
Degas, Degas Elite, Micro- 
painter, Paintwork, Neochro- 
me, etc. 

2. El diseño debe estar incluido 
en diskette o casete, según co¬ 
rresponda. Cada socio podrá 
participar solamente con un 
diseño. 

3. El dibujo en diskette o casete, 
para concursar debe ser en¬ 
viado en sobre cerrado a: 

ATARI CLUB DE CHILE 
"Buscando un logotipo al 
Club" 

Av. Vicuña Mackenna 1705 
Santiago 

4. Adjunto al diskette o casete 
deben acompañarse los ante¬ 
cedentes del socio partici¬ 
pante, como se indica a con¬ 
tinuación: 


5. El plazo máximo de recep¬ 
ción de los trabajos vence el 
día 30 de julio de 1987. 

6. Un jurado integrado por per¬ 
sonal de COELSA COMPU¬ 
TACION y de la revista MUN- 
DOATARI, realizará la elec¬ 
ción del logotipo ganador, sin 
derecho a apelación posterior. 


7. Premio al socio ganador: 

El socio que resulte ganador 
de este concurso, se hará acre¬ 
edor a un premio de $ 25.000 
en mercadería a elección a 
escoger en las oficinas del 
Centro ATARI. 

8. El resultado y fotografía del 
diseño ganador, seráh publi¬ 
cados en MUNDOATARI. 

Esperamos una amplia parti¬ 
cipación de los socios del ATARI 
CLUB DE CHILE en este con¬ 
curso, a fin de encontrar un lo¬ 
gotipo original y representativo 
del Club. 


ATARI CLUB DE CHILE 
"Buscando un lo gotipo al Club" 

Número de socio: —---- 

Nombre del socio:. 

Tipo de computador: . 

Programa de dibujo:. 

Nombre de dibujo:. 
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¡ Decídete y participa, envíanos tu propio diseño del logotipo del Club! 

Esperamos tu participación 


MUNDOATARI 




















DISKETTE: 


Dominando la 1050 


En este número comenzaremos con un tema 
que interesa a la mayor parte de los usuarios de la 
veloz 1050: el manejo de archivos. 

Nuestra interrogante de hoy es: ¿Cómo mani¬ 
pular información (datos) entre la memoria y el 
diskette? 

Esta pregunta es la que plantea la columna 
PROYECTO con si* listado de alumnos que debe 
almacenar en el diskette. (MUNDOATARI No. t, 
proyecto: Planilla de Notas). 

El ATARI dispone de localizaciones de-memo¬ 
ria que controlan el movimiento de información 
entre la memoria y los diferentes periféricos que 
pueden constituir su configuración. 


Estas localizaciones se conocen como IOCB: 
Input/Output Control Block (Próximamente serán 
tratados en extenso en la columna DE BYTE EN 
BYTE). 

ACTIVIDADES: 

1. Encienda su computador con la Unidad de 
Disco (ver procedimiento en números ante¬ 
riores). 

2. Digite DOS (aparece Menú de tareas del DOS) 

3. Retire de la Unidad de Disco el Master DOS e 
inserte un diskette virgen. 

4. Seleccione Opción I (Formateo densidad y 
media), y continúe con las interacciones (nú- f 
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D/SKETTE: continuación 


mero de Unidad de Disco y letra "V"). 

5. Copie el DOS a este diskette (presione la letra 
"H") y continúe con las interacciones. 

6. Presione la letra "A" y dos veces la tecla RE- 
TURN. En pantalla aparecen los nombres de 
programas del DOS (DOS. SYS y DUP.SYS). 
Esto permite llamar al menú a partir de este 
diskette. 

NOTA: Si su ATARI es un 130 XE, puede mover el 
programa RAMDISK.COM de su Master DOS (Uti¬ 
lice la opción 0. Interactúe designando el nombre 
RAMDISK.COM y cambiando los diskettes (source = 
fuente, Master DOS 2.5). 

La serie de actividades estructuradas nos con¬ 
ducen a un diskette formateado para almacenar 
información y con el DOS que permite llamar al 
Menú de Tareas. 

Para el 800 XL, al llamar el menú de tareas se 
pierde el programa BASIC residente en memoria 
(puede llamar con el programa MI NI DOS de 
MUNDOATARI No. 1). 

Para el 130 XE el programa residente no se 
pierde, pues se transfiere al Banco Secundario. 
Así, al llamar el menú de tareas (tipear DOS) apa¬ 
rece en forma inmediata el Menú. 

Luego de esta breve introducción vamos a las 
actividades propias de este mes: 

ACTIVIDADES: 

1. Digite en modo directo: 

10 OPEN 2, 8, 0 r "Q: MUNDO.DAT" 

2. Ejecute este corto programa. Digite RUN y 
presione RETURN. 

3. Observe qué sucede con las luces rojas de con¬ 
trol de actividad de la 1050 al ejecutar el pro¬ 
grama. 

4. Después que aparezca el mensaje de fin de eje¬ 
cución (READY) llame al menú de tareas, di¬ 
gite DOS y presione RETURN. 

5. Examine el contenido del Directorio del dis¬ 
kette de trabajo (opción A y tecla RETURN 
dos veces). 

El Directorio confirma la presencia de un nue¬ 
vo archivo "D: MUNDO.DAT", que fue creado 
por la línea 10: 

¿Qué características tiene este archivo?. ¿Pue¬ 
de ser llamado a partir de la instrucción del BASIC 

LOAD? 

Insistimos en la característica educacional 
práctica del computador: nos permite comprobar 
al instante nuestras interrogantes. 

El único problema es diseñar la actividad o 
el método que cumpla tal propósito. 

ACTIVIDADES: 

1. Retorne al BASIC, (opción B del menú de ta¬ 
reas) (tipee NEW para el 130 XE). 

2. Digite en modo directo: 



LOAD "D: MUNDO.DAT" 

3. Ejecute el programa (RUN y RETURN) 

4. ¿Qué conclusión puede extraer con estas acti¬ 
vidades? Que el archivo MUNDO.DAT es un 
archivo de datos y no de programa. 

ACTIVIDADES: 

1. Digite las siguientes líneas y salve al disco co¬ 
mo: "D: DISC01.JUN”, con este nombre es¬ 
tará en el directorio el programa: 


18 DIH ARRES(1249) 

28 T=INT(RND(8)*255) 

38 ARRES (1)“CHR$(T):ARRES(1249)=CHRS(T 
):ARRES(2)-ARRES 

48 PRINT "ESTO CONTIENE EL 5TRING ARRE 
S “ 

58 PRINT ARRES 

68 OPEN tt2,8,0, l> D:HUNDO.BAS l> 

78 PRINT 112;ARRES 


2. Ejecute RUN y presione RETURN 

3. Llame al menú de tareas. Digite DOS 

4. Examine el contenido del directorio (opción 
A y RETURN dos veces). 

5. Observe con atención el número de sectores 
que ocupa este archivo de datos (cantidad que 
aparece después del número). 

6. Retorne al BASIC (opción B del menú de ta¬ 
reas). 

7. Liste el programa residente en memoria (el 
programa DISCO! .BAS se encuentra en la me¬ 
moria si tiene un 130 XE, por ende salte a 
actividad No. 9). 

8. Cargue el programa DISC01.JUN grabado en 
el punto 1. Para ello digite:> 

LOAD "D:DISC01.JUN" y presione RETURN. 

Digite instrucción LIST y en la memoria se 
encontrará nuevamente el listado. 

9. Modifique el número 1249 a 2499 en las lí¬ 
neas 10 y 30 y repita pasos del 2 al 5. 
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DISKETTE: continuación 


10. ¿Cuántos sectores ocupa ahora el disco? 

11. Continúe modificando la dimensión de los da¬ 
tos almacenados. 

12 Encuentre el máximo de caracteres que puede 
almacenar en él el diskette. ¿Cuál es el factor 
limitante?. 

Comentario del listado: 

10 Dimensiona variable alfanumérica ARRES con 
el número deseado 

20 Asigna a variable T un número random entre 0 
y 255 

30 Inicializa la variable alfanumérica con el carác¬ 
ter correspondiente al número T (ver en co¬ 
lumna TORPEDO de MUNDOATARI No. 1 
truco de propagación del string) 

40-50 Edita el contenido de variable en la pantalla 
60 Abre el IOCB 4 2 para un archivo con el nom¬ 
bre MUNDO. BAS 

70 Moviliza por el canal #2, abierto en línea 70 
la información contenida en la variable ARRES 
hacia una determinada cantidad de sectores 
del disco. La cantidad de sectores utilizada es 
directamente proporcional a la dimensión de 
la variable alfanumérica ARRES. 

Observe la característica similar del formato 
de instrucción PRINT con el del modo 1 y 2 
para editar en pantalla. 

Un problema para pensar: ¿Por qué la canti¬ 
dad que se debe almacenar no corresponde a la 
capacidad de los sectores? (recuerde que la capaci¬ 
dad de un sector es 128 bytes (ver MUNDOATARI 
No. 0). 

La próxima pregunta es: ¿Cómo recuperar la 
información que se encuentra en el diskette? 

ACTIVIDADES: 

1. Agregue al programa DISCOI.JUN las siguien¬ 
tes líneas: 


80 CL05E ItZ 

90 ARRES=""SPRINT "EL CONTENIDO DE ARR 

E$ E5 "SPRINT ARRES 

100 0PEN ttl, 4,0, "D S MUMD0 .BAS" 

110 INPUT tti,ARRES 
115 ? ARRES 
128 CL05E ttl 


2. Ejecute y observe el comportamiento. 

3. Consulte el Manual de referencia del DOS 
(COELSA), para interpretar la causa del error 

4. Modifique las líneas 10, 30 para la cantidad 
de 100 

5. Ejecute y observe el comportamiento ahora. 
¿En qué se diferencia con el punto 2? 

6. Modifique las mismas líneas hasta determinar 
el valor preciso en que se produce el error. 


Estas actividades nos indican que el soporte 
de traslado de información desde el diskette hacia 
la memoria tiene una restricción en cuanto a la 
cantidad de caracteres. ¿Cuál es la cantidad má¬ 
xima? 

Comentario de líneas adicionales: 

80 Cierra el- IOCB 4 2 abierto para grabar datos 
90 Anula el contenido de la variable alfanumé¬ 
rica ARRES 

100 Abre el canal 4 1 para el archivo "D:MUNDO. 
BAS. Ahora es para leer, es decir, cargar in¬ 
formación desde el diskette hacia la memoria. 
Observe el valor 4 del segundo parámetro. Es 
determinante para definir la operación de lec¬ 
tura. En la línea 60 el valor es 8, que indica 
operación de escritura. 

110 La instrucción INPUT ejecuta el traslado de 
caracteres desde el diskette hacia la memo¬ 
ria utilizando el canal 4 1 

115-120 Edita la variable alfanumérica para com¬ 
probar el traslado correcto de la información. 

ACTIVIDADES: 

1. Modifique las siguientes líneas del listado an¬ 
terior: 


10 DIM ARRES(2499) 

20 T^INT(RND(0)*255) 

30 ARRES(1)=CHRS(T)SARRES(2499)=CHRS(T 
):ARRESí2)=ARRES 

40 PRINT "ESTO CONTIENE EL 5TRING ARRE 
S " 

50 PRINT ARRES 

60 0PEN tt2,8,0, "D SHUNDO.BAS" 

70 PRINT 112; ARRES 
80 CL0SE tt2 

90 ARRES=""SPRINT "EL CONTENIDO DE ARR 

ES ES "SPRINT ARRES 

100 0PEN ttl, 4,0, "D SHUNDO.BAS" 

110 ARRES(1)=" "SARRES(2499)-" ":ARRES 
(2)=ARRES 

115 F0R J=1 T0 2499 

120 6ET ttl,A 

130 ARRES(J)-CHRS(A) 

140 NEXT J 
150 CL0SE ttl 
160 PRINT ARRES 


2. Modifique los valores de líneas 10-30 a valores 
de dimensión 2499. 

3. Ejecute el listado. 

4. Dimensione el tiempo que demora en llevar la 
información a la memoria. 

Comentario: La instrucción GET es más lenta, 
pues trae información de byte en byte. • 
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SOLUCION DEL NUMERO ANTERIOR 

La solución a! primer problema planteado en el nú¬ 
mero anterior consiste en aumentar el dimensionamiento 
de las variables 0R!$ y COPIAS a 120 caracteres (3 líneas 
de 40 caracteres cada una). Las líneas 15 y 20 quedan 
entonces como sigue: 

15 DIM ORI$(120), COPIA$(120) 

20 PRINT "Escriba un mensaje de 3 líneas": PRINT 

El segundo problema requiere dimensionar en la lí¬ 
nea 15 las variables NOMBRES y D/RECC/ONS con 40 
caracteres cada una y luego modificar el programa base 
de la siguiente manera: 

15 DIM NOMBRE$(40), DIRECCION$(40), NMB$ 
(40), DRC$(40) 

20 PRINT"lngrese nombre: : INPUT NOMBRES 

25 PRINT J< Ingrese dirección: " ; : INPUT DIREC 
CION$ 

45 PRINT #1; NOMBRES, DIRECCIONS 

90 INPUT =#2; NMB$, DRC$ 

100 PRINT "NOMBRES / DIRECCION® PRINT 
NOMBRES: PRINT DIRECCIONS 

105 PRINT "NMBS / DRC$": PRINT NMB$: PRIN 
T DRCS 


El mes pasado iniciamos la técnica para mane¬ 
jar archivos de datos mediante las instrucciones 
PRINT # / INPUT 4 . Del ejemplo tratado en el 
programa y de la variación propuesta en el proble¬ 
ma No. 2 podemos deducir que toda la informa¬ 
ción que se procesa en esta forma debe ser gra¬ 
bada y cargada en forma de variables alfanumé- 
ricas (strings). 

PUT 4/GET 4 

Al igual que las instrucciones ya tratadas ante¬ 
riormente, PUT # y GET # requieren el uso de ca¬ 
nales de comunicación para grabar o cargar infor¬ 
mación. 

La diferencia fundamental de estas instruc¬ 
ciones con las anteriores radica en que la informa¬ 
ción es tomada byte por byte en la operación que 
realicemos. La transferencia es literal: carácter por 
carácter. Debemos sobservar al respecto que los 
valores fluctúan en el rango de 0 a 255 (ver más 
antecedentes en MUNDOATARI No. 1, columna 
Directo al 6502). 


Controlando 
la casetera 

PUT significa "ponga" o "pon" un byte. 
GET significa "saque" o "saca" un byte. La tra¬ 
ducción en cada caso dependerá del grado de con¬ 
fianza que le tenga usted al computador. 

Con los antecedentes tratados veremos un 
ejemplo aclaratorio. Liste y ejecute el siguiente 
programa: 


10 PRINT “Prepare cinta. Presione REGO 
RD+PLAY":PRINT "Digite una tecla para 
eupezar":PRINT 
15 OPEN 81,8,0,"C:" 

20 F0R X=1S3 T0 218 
23 P05ITI0M X,20:? AS 
25 PUT ttl,X 
30 NEXT X 
35 CL05E tti 

40 PRINT :PRINT "Digite CONT+RETURN pa 
ra seguir" 

45 STOP 

50 PRINT CHRSC125) 

55 PRINT "Prepare cinta. Presione PLAY 
":PRINT "Digite una tecla para empezar 
":PRINT 

60 OPEN 81,4,0,"C:" 

65 FOR X=1 TO 25 
70 GET 81,A 
75 PRINT CHRSCA); 

80 NEXT X 
85 GLOSE 81 


Comentarios al listado: 

10-35 Graba en casete 25 bytes correlativos 
20 El rango de bytes es asignado entre los valores 
193 y 218 (alfabeto inverso) controlado por 
el ciclo X 

25 Graba cada uno de los bytes 
40-50 Detención para separar las 2 operaciones 
55-85 Carga los datos almacenados en casete 
65 Ciclo para recuperar 25 bytes con GET 
70 Almacena valor del byte en variable A 
75 Imprime los 25 bytes en forma de caracteres 
yuxtapuestos. 
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A continuación veremos otra posibilidad de 
archivo a partir de DATA. Reemplace las siguien¬ 
tes líneas: 

5 DATA 83, 65, 76, 85, 68, 79, 83. 44, 32, 80, 82, 
79, 70, 46, 32, 67, 72, 73, 80 
20 FOR X = 1 TO 19 
22 READ A 
25 PUT#1, A 
65 FOR X = 1 TO 19 

Es claro que este mismo resultado pudo haber¬ 
se logrado con los comandos PRINT 4/ INPUT 4, 
pero debemos considerar esta nueva técnica como 
posibilidad de grabar directamente a medida que 
digitamos la información (!). 

Esta técnica la desarrollaremos en los próxi¬ 
mos números. 

Por razones de prioridad haremos un comen¬ 
tario sobre un problema que eludimos en el núme¬ 
ro anterior, referido al manejo de una cantidad 
considerable de datos. 



En el ejemplo siguiente se almacena en la va¬ 
riable A$ un total de 600 letras X usando la técni¬ 
ca de propagación (ver columna TORPEDO de este 
número): 

10 DIM A$(600) 

15 A$ ="X": A$(600) = A$: A$(2) =A$ 

20 OPEN4l,8, 0, "C:" 

25 PRINT #1; A$ 

30CLOSE#1 

Para recuperar ese string deberíamos recurrir 
a las siguientes líneas: 

50 DIM B$(600) 

55 OPEN#1, 4, 0, "C:" 

60 INPUT #1;B$ 

65CLOSE=#1 

Al ejecutar GOTO 50 (y no RUN, porque sólo 


deseamos cargar) aparece inevitablemente el error 
137, debido a que el INPUT está excedido (el 
mismo problema comentado en la columna Domi¬ 
nando la 1050). 

¿Qué podemos hacer para rescatar ese escu¬ 
rridizo string? 

Entonces aparece GET como salvador de la 
situación. Digite las siguientes líneas: 

50 DIM B$(600) 

55 OPEN #1, 4, 0, "C 
60 FOR X = 1 TO 600 
65GET#1,C 
70 B$(X) =CHR$ (C) 

75NEXTX 
80 CLOSE#1 
85 PRINT B$ 

Digite a continuación GOTO 50... iy allí apa¬ 
rece lo que dábamos por perdido! 


PROBLEMA PARA ELPROXIMO NUMERO 

Imagínese la siguiente situación: Sabemos que en 
el casete tenemos grabada una cierta cantidad de datos, 
pero usted no se acuerda ni del nombre de la variable ni 
de la dimensión que Je asignó. 

¿Cómo puede recuperar el contenido del string 
mediante el uso de GET, si de partida descartamos el 
ciclo de la 1 ínea 60? 

p 


COLABORACIONES 


MUNDOATARI recibe artículos, pro¬ 
gramas y columnas de continuidad para 
ser editadas en los próximos números. 

Estas columnas serán evaluadas y anali¬ 
zadas de acuerdo a nuestra línea editorial. 

Previo a la publicación de un aporte, la 
revista enviará el dinero correspondiente 
a su pago, constituyéndose por este hecho 
en propiedad de la revista. 

Las contribuciones no aceptadas por la 
revista serán devueltas a sus autores. 

Los artículos deben ser escritos a máqui¬ 
na o en procesador de textos. Los progra¬ 
mas, grabados en casete o diskette y lis¬ 
tados además en impresora. 

La publicación de cualquier material en 
las páginas de MUNDOATARI estará su¬ 
peditada a las disponibilidades de espacio 
o a las necesidades de la edición. 
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Guia 

BASIC 



NOMBRE PAISES CEOÜIPOS> 
TIEMPO BE CAMPEONATO 
INFORME EQUIPO (PAIS) 
RESULTADOS DE UN CAMPEONATO 

ai:lai'jjE 


El fútbol es pasión para muchos y por ello 
elegirnos este simple programa con la expresión 
máxima de este deporte: Los campeonatos mun¬ 
diales. 

Si asediamos nuestra memoria y preguntamos: 
¿Quién fue el campeón en el año 1958? hasta el 
más fanático se encuentra en aprietos. 

Es cierto que para este tema la importancia 
es relativa, pero existen otros datos o informacio¬ 
nes que son fundamentales para la toma de deci¬ 
siones. 

Para este fin se utilizan los computadores y 
su ATARI puede cumplir con esta finalidad si 
cuenta con los periféricos adecuados, (ver colum¬ 
na Dominando la 1050). 

Volvamos a nuestra columna. Este mes pro¬ 
porcionamos un programa simple que maneja 
información acerca de los campeonatos mundia¬ 
les hasta el año 1982. 

En él se puede apreciar la estructura de blo¬ 
ques para rutinas y subrutinas de llamado. 

MANEJO DE DATOS: 

1. Nombre de equipos en variable alfanumérica 
EQUIPOS (líneas 1100-1150) (ver además co¬ 
lumna TORPEDO de MUNDOATARI No.1). 

2. Años de competencia en arreglo TIEMPO 
(líneas 1000-1040) 

3. Clasificación de cada equipo en una matriz 
M en que se disponen 12 columnas para los 
años y 10 líneas para los equipos. La clave 
para reconocer su valor es: 

— 0 sin clasificación final 

— 1 campeón 

— 2 finalista 

Comentario de otras líneas del programa: 

1200-1350 disponen los valores en la matriz. 
2000-2100 disponen el menú en la pantalla. 
9000-9040 proporcionan una subrutina de pausa. 
120 proporciona la direccionalidad de ejecución 
según el valor de ingreso. 

200, 300, 400, 500, 600 son puntos iniciales para 


bloque de ejecución para cada manejo espe¬ 
cial del banco de datos. 

Ahora algunas actividades que le permitan 
modificar este programa: 

1. Incorpore los resultados del campeonato de 
1986 (México). 

2. Aumente la información para que aparezca 
Chile, es decir, entregar tercero y cuarto lugar. 


5 GRAPHICS 0 

10 DIM EQUIPOS(150),ELEH$(15) , RET$(1) 

20 DIM MC16,12),TIEMPOC12) _ 

25 REM 

28 EQUIPOS ti)-" M :EQUIPOS(150)=“ ":EQU 
IP0S (2)^EQUIPOS 
30 REM 

40 F0R 1-0 TO 12:TIEMPO(I)=0:NEXT I 

50 F0R 1=0 T0 10 

60 F0R J=0 TO 12 

70 M(I,J)=0 

80 NEXT J:NEXT I 

100 G05UB 1000 

110 G05UB 2000 

126 0N NUM G0SUB 208,300,4001500,600 
130 GOTO 110 

200 REM _ 

210 PRINT "X" 


SU8RUTINA EDITA LISTA EQUIPOS 


228 P05ITI0H 8,8:? *1 

LISTA 

DO EQUIPOS 

r* 


230 F0R J=1 T0 10 
240 INC=CJ-1)*15 

250 P05ITI0M 5,3+J¡? EQUIPOS(1+INC,15+ 
INC) 

260 NEXT J 
270 G05UB 9000 
280 RETURN 

300 REM _ 

310 PRINT "N" 


SUBRUTINA EDITA CAMPEONATOS 


12 


MUNDOATARI 














tutoría 


320 P05ITI0N 0,0:? 


PE0HAT05 


o 


338 FOR J=1 TO 12 
350 P05ITI0N 5,3+J:? TIEMPOCJ) 
360 NEXT J 
370 G05U8 9000 
380 RETURN 
400 REM 

El 

410 PRINT "H" 

420 P05ITI0N 0,3:? 


SUBRUTINA INGRESO NOMBRE EQUIP 


DIGITE nonbre del 


Ni 


PAI5 (MAYUSCULAS) 


430 INP1IT ELEH$ 

440 L=LEN(ELEMS) 

450 FOR J=1 TO 10:INC=ÍJ-1)*15 
460 IF EQUIPOS(1+INC,L+INC)=ELEMS THEN 
POP ¡GOTO 480 
470 NEXT J 


475 POSITION 0,10:? *1 

SU EQUIPO NO E 

STA EN EL BANCO 

I" 


ni 


CAMPEON 


en 


«i 


478 GOTO 498 
488 I=J:FOR J=1 TO 12 
485 IF MCI,J)-1 THEN ? 

JTIEMPOCJ) 

490 IF M(I,J)=2 THEM ? "finalista en " 
;TIEMPO(J) 

495 NEKT J 

498 GOSUB 9800 

499 RETURN 

500 REM 

0 

510 PRINT "N" 

520 P05ITI0N 0,3:? ■' 


SUBRUTINA RESULTADOS CAMPEOHAT 


DIGITE ABO COMPET 


hi 


ENCIA (NUMEROS! 


525 POSITION 0,5:? "MENU puede ver atto 
s de coHpetencia" 

530 INPUT ELEMS 

535 IF ELEM$= ,a MENU n THEN RETURN 
540 FOR 1=1 TO 12 

550 IF VAL (ELEMS)=TIEMPO(I) THEN POP : 
60T0 578 
555 NEXT I 

560 P05ITI0N 0,8:? " ABO SIN COMPETENC 
IA "¡GOSUB 9000¡GOTO 598 
570 FOR J=1 TO 10 

575 IF M(J,I)=i THEN PRINT EQUIPOS(l+( 

J-l)*15,J*15) rifTIIJJil.'l 

580 IF M(J,I)=2 THEN PRINT EQUIPOS(l+( 

J-1)*15,J*15);" finalista 

585 NEXT J 

590 GOSUB 9000 

598 RETURN 

600 GOSUB 9000 


610 END 

REM tiempo 

1010 FOR 1=1 TO 12:READ D:TIEMPO(I)=D: 
NEXT I 

1020 DATA 1930,1934,1938,1950 
1030 DATA 1954,1958,1962,1966 
1040 DATA 1970,1974,1978,1982 
REM 

1110 FOR 1=1 TO 10¡READ ELEMS¡L=LEN(EL 
EMS) 

1120 INC=(I-l)*15¡EQUIPOSÍl+INC,L+INC) 
=ELEM$ 

1130 NEXT I 

1150 DATA URU6UAV,ARGENTINA, ITALIA, CHE 

C05L0VAQUIA,HUNGRIA,ALEMANIA OCC.,BRAS 

IL,5UECIA,INGLATERRA,HOLANDA 

1200 FOR 1=1 TO 10¡FOR J=1 TO 12 

1210 READ D¡M(I,J)=D 

1220 NEXT J.-NEXT I 

1250 RETURN 

1268 DATA 1,0,0,1,0,0,O, 0 , 0 , 0 , 0,0 
1278 DATA 2,0,0,0,0,0, 0 , 0 ,0,0,1 ,0 I 

1280 DATA 0,1,1,0,0,0,0,0,2,0,0,1 
1290 DATA 0,2,0,0,0,0,2,0,0, 0 , 8,0 
1300 DATA 0,0,2,0,2, 8 ,0,0, 8 , 0 , 0,0 
1310 DATA 0,0,0,0, 1,0, 8 ,2,0,1,O,2 
1320 DATA 0,0,0,8,0,1,1, 8 , 1 , 8 , 0,0 
1330 DATA 0,8,0,0,0,2,0,0, 0 , 0 , 0,0 
1340 DATA 0,0,0,0,8,0,0,1, 0 , 0 , 0,0 
1350 DATA O, 8 , 8 , 0,0,0,8,O, 8 ,2,2 ,8 
2000 REM HH¿íillli*i , r.M.1dNiililfirm3Tlll 
2818 P05ITI0N 18,2:? " UMaTU » 

2028 P05ITI0N 6 , 6 ¡? » O NOMBRE PAISES 
(EQUIPOS)" 

2838 POSITI0H 6 , 8 :? "0 TIEMPO DE CAMP 
E0NATO" 

2040 POSITION 6,10:? " S INFORME EQUIP 
O (PAIS)" 

2050 POSITION 6,12:? " Q RESULTADOS DE 
UN CAMPEONATO" 

2068 POSITION 6,14:? " 0 
2870 POSITION 0,28:? 


FINALIZA 


DIGITE el nuner 


ue corres 


2880 INPUT NUM 

2890 IF INTíNUMXl OR INT(NUM)>5 THEN 
PRINT CHRS(125)¡GOTO 2008 
2100 RETURN 
9000 REM 

9010 POSITION 0,20:? ■ 

ESfíeturnSn 
9020 INPUT RETS 
9038 PRINT " 6 " 

9040 RETURN 


SUBRUTINA MENSAJE PAUSA 


PRESIONE la tec 1 


ara continuar 


Ni* 

> 
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Directo al 
6502 


SISTEMA NUMERICO HEXADECIMAL 

Practiquemos con los binarios para iniciarnos. 
¿Cuál es el número decimal que corresponde al 
binario: 10000000111111111? 

Hay un tiempo para pensar. 

Imagínense que para cada número o dirección 
se debiera realizar el trabajo de transformación... 
la programación de la máquina se limitaría a trans¬ 
formar números. 

Para esta problemática existe un sistema que 
sirve de nexo entre los sistémas numéricos: 

— sistema binario extremadamente importante 
para la máquina, y 

— sistema decimal con el que los humanos nos 
manejamos con comodidad. 

EL SISTEMA HEXADECIMAL 

La característica propia del sistema es dieci¬ 
seis dígitos, lo que determina el nombre y la base 
del sistema. Excede nuestro sistema decimal en 
seis, por lo que se requiere de formas para repre¬ 
sentar la diferencia: 

Observe que los dígitos A, B, C, D, E y F no 
tienen dígitos equivalentes del sistema decimal, 
sino que la repetición de los conocidos. 

A equivale a 10 (el número 10 utiliza los dígi¬ 
tos 1 y 0) 

B equivale a 11 
C equivale a 12 
D equivale a 13 
E equivale a 14 
F equivale a 15 

El sistema numérico hexadecimal se utiliza en 
extenso por programadores para introducir códigos 
directamente a la máquina. Las revistas especiali¬ 
zadas americanas sirven de documentación al res¬ 
pecto. 

Se identifica normalmente un número hexade¬ 
cimal por el signo $ que le precede. Ej.: $ FF. 



Transformación de decimal a hexadecimal. 

¿Qué hexadecimal corresponde a 16? 

No existe un dígito simple que lo represente, 
pues ocupamos los 16 dígitos para designar los 
equivalentes decimales de 0 a 15. Por lo tanto ne¬ 
cesitamos ocupar la siguiente posición (uno), que 
se incrementa en uno. 


TRANSFORMACION 
HEXADECIMAL EN DECIMAL 

10 REM TRANSFORMA HEXADECIMAL EN DECIM 
AL 

20 DIM PAU5A$(1)j HEXA$(5) 

30 GRAPHICS 0 

40 P0SITI0N 0,2:? "DIGITE nUMero HEHAD 
ECINAL $ 00-00" 

45 TRAP 30 

50 P0SITI0N 0,4:? "$ :INPUT HEXA$ 

70 MAY0R=INT(DECIHAL/256) 

80 MEN0R=DECIHAL-MAY0R*256 

90 IF HEXA$(3,3) O 11 -" THEN 1000 

100 P=1: HAYOR=0: GOSIIB 600 

110 IF ERR0R=-1 THEN GOTO 1000 

120 MAY0R=SE«16 

130 P=P+l:G0SUB 680 

140 IF ERR0R=-1 THEN GOTO 1000 

150 MAY0R=MAY0R+5E 

160 P=4: HENOR-0:GOSUB 600 

170 IF ERR0R=-1 THEN GOTO 1080 
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Examinemos el 15 es 

$ OF 

al aumentar 

1 

$ 1 

el resultado 

16 es 

$ 10 

Continuemos 

generando el 

hexadecimal si 

guíente, o sea, el equivalente al decimal 17: 

El número 

16 es 

$ 10 

al aumentar 

1 

$ 1 

el resultado 

17 es 

$11 

Para el siguiente decimal 18: 


El número 

17 es 

$ 11 

más 

1 

$ 1 

resultado 

18 es 

$ 12 

Para 

19 es 

$ 13 

Para 

20 es 

$ 14 

Para 

21 es 

$ 15 

Para 

22 es 

$ 16 

Para 

23 es 

$ 17 

Para 

24 es 

$ 18 

Para 

25 es 

$ 19 

Para 

26 es 

$ 1A 

Observe que en esta posiciór 

i se recurre a uno 

de los dígitos extras del sistema. 


Para 

27 es 

$ IB 

Para 

28 es 

$ 1C 

Para 

29 es 

$ ID 

Para 

30 es 

$ 1E 

Para 

31 es 

$ IF 


Como se nos terminaron los dígitos se vuelve 


189 HEN0R=SE*16 

199 P=P+1:G05UB 699 

299 IF ERR0R=-1 THEN GOTO 1999 

219 MEN0R=MEN0R*SE 

229 DECIHAL=HAY0R#256+MEN0R 

239 POSITIOM 9,16:? " El DECIMAL que C 

orresponde al HEXA-"; 

249 P05ITI0N 9,18!? "DECIMAL $ ";HEXA$ 
es ; DECIMAL 
259 END 

699 CARA=ASC(HEXA$(P,P)):ERR0R=9 

619 IF CARA>47 AND CARA<58 THEN SE=CAR 

A-48.-RETURN 

629 IF CARA)64 AND CARA<71 THEN SE=CAR 

A-55.-RETURN 

639 ERR0R=~1: RETIIRN 

1999 P05ITI0N 9,18:? " ERROR en ingres 
o de nunero"; 

1919 POSITION 9,28:? " PRESIONE Retur 
n y continua" 

1829 INPUT PAUSAS 
1838 GOTO 39 


al dígito 0 en la primera posición e incrementa en 
1 la posición uno. 

p ara 32 es $ 20 

Observe el incremento y la relación de los nú¬ 
meros decimales y hexadecimales. 

¿Cómo pasar de un número decimal directa¬ 
mente al hexadecimal? 

Respondamos a la interrogante en forma par¬ 
cial. El dígito de la posición uno resulta de dividir 
el número por 16, y representar este número en el 
dígito correspondiente hexadecimal. 

En la posición cero representaremos este nú¬ 
mero por el equivalente hexadecimal. 

Esta respuesta es parcial, pues cubre sólo un 
hexadecimal de dos posiciones. 

Probemos la respuesta. ¿Cuál es el hexadeci¬ 
mal que corresponde al decimal 32? 

32 / 16 = 2 (parte entera) 

32 — 2* 16=0( resto) 

El hexadecimal es $ 20. La comprobación es 
correcta. 

ACTIVIDAD: 

Realice las siguientes transformaciones de de¬ 
cimal a hexadecimal: 

a) 47, b) 111, c) 89, d) 240, e) 199, f) 254 
g)80, h) 164 

- ¿Cuál es el hexadecimal de 255? 

i 

a) 47, b) 111, c) 89, d) 240, e) 199, f) 254 
g) 80, h) 164 — 

- ¿Cuál es el hexadecimal de 255? 

255/ 16 — 15 F (parte entera) 

255— 15* 16 = 15 F (resto) 

El correspondiente hexadecimal es $ FF. 

¿Cómo generamos de la suma el hexadecimal 
de 256? 

El número 255 es $ FF 

aumentar 1 $ i 

resultado 256 es $100 

Al sumar al dígito F una unidad el dígito si¬ 
guiente es 0 en posición 0 

¿Qué significa adicionar 1 a la posición uno? 
Que pasa a cero por no existir otro dígito. 

El uno que arrastra va a la siguiente posición, 
pasando de cero a uno. 

De esta manera, si el número excede de 255 
existen dos partes. 

Ej.: ¿Cuál es el hexadecimal de 1536? 

1. Dividir por 256 y tratar cada parte como lo 
acotado anteriormente: 

1536 / 256 = 6 (parte dos) 

1536 — 256 * 6 = 0 (parte uno) 

El hexadecimal de 1536es $0600 (página seis) \ 
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PROCESADOR DE TEXTOS 

MULTI EDITOR 



• PARA EL PROFESIONAL 

• PARA LA SECRETARIA 

• PARA EL ESTUDIANTE 

• PARA USTED 



PARA QUE SUS INFORMES 
Y CARTAS LUZCAN 



¿Cuál es el hexadecimal de 65535? 

65535 / 256 = 255 (parte dos) 

65535 - 256 * 255 = 255 (parte uno) 

El hexadecimal de 65535 es $ FFFF 
ACTIVIDADES: 

1. Transforme a hexadecimal los siguientes nú¬ 
meros decimales? 

a) 40000, b) 52000, c) 15600, d) 1024, 
e) 17687, f) 32675, g) 45678, h) 65533 

2, Digite el siguiente listado que transforma di¬ 
rectamente decimales a hexadecimales: 


10 REH TRANSFORMA DECIMAL EN HEXADECIM 
AL 

20 DIM PAUSAS(1) i HEXA$(5) 

30 GRAPHICS 0 

40 P0SITI0N 0,2:? "DIGITE minero DECIM 
AL" 

45 TRAP 30 
50 INPUT DECIMAL 

60 IF DECIMAL<8 OR DECIMAL>65535 THEN 
30 

70 MAY0R=INT(DECIMAL/256) 

80 HEN0R=DECIHAL~HAY0R*256 

90 HEXA$="00-00 u 

95 IF HAYOR=0 THEN 110 

100 NUHER0=MAY0R:AUM=l:G05UB 500 

105 IF HENOR=0 THEN 200 

110 NUMER0=MEN0R:AUM=4:G0SUB 500 

200 P0SITION 0,16:? 11 El HEXADECIMAL q 

ue corresponde al" 

210 POSITION 0,18:? 11 decinal DECIMA 
L; n es :$ “;HEXA$ 

300 END 

500 5E=INT(NUMERO/16) 

510 PR=NUMER0-5E*16 
520 LINEA=550 
525 R=5E 

530 IF SE>9 THEN 600 

540 HEXA$(AUM,AUM)-STR$(SE) 

550 LINEA=590 

555 AUH=AUM^l;R=PR 

560 IF PR>9 THEN 600 

570 HEXA$ CAUM,AUM)=5TR$(PR) 

590 RETURN 

600 HEXA$ CAUM,AUN)=CHR$(R+55) 

610 GOTO LINEA 


3. Compruebe los valores obtenidos. 

Luego de esta introducción de los sistemas nu¬ 
méricos, el próximo número comienza la acción. 
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ASSEMBLER: continuación 


USR 


RESPUESTA AL NUMERO ANTERIOR 

El retorno al BASIC desde la función USR está dado 
por el código 96 que finaliza la rutina y vuelve hacia las 
localizaciones de interrupción almacenadas en el STACK. 

En el formato: 

Y = USR (1536) 

la función USR retorna hacia el BASIC un valor que se 
almacena en localizaciones reservadas para variables, en 
este caso Y. 

Existe un par de localizaciones que se usan tempo¬ 
ralmente para ese paso: 

— Localización 212, con el byte menor 

— Localización 213, con el byte mayor 

El BASIC toma el valor de estas localizaciones (212 
y 213) y los traslada a las reservadas para la variable Y. 
Inmediatamente inicializa estas localizaciones para los 
valores iniciales (al encender el computador la localiza¬ 
ción 212 es 212 y la 213 es 0. 


Este mes proporcionaremos una rutina que 

examina el contenido para un puntero. Esto es: 

A. Definida la localización inicial del puntero 
(primer byte), parámetro de ingreso a la fun¬ 
ción USR. 

B. La rutina examina el contenido del primer 
byte (byte menor). 

C Examina el contenido del byte siguiente (byte 
mayor). 

D. Almacena estos valores en las localizaciones de 
paso hacia el BASIC (212 y 213). 

E. Retorna hacia el BASIC y mueve los bytes de 
212 y 213 hacia los propios de la variable del 
BASIC (en este caso la variable VER). 


Ahora el BASIC toma el control editando el 
contenido de la variable (línea 120). 

Esta rutina corresponde a instrucciones del 
BASIC Doble PEEK: 

PEEK(menor) + PEEK (mayor) * 256 

ACTIVIDAD: 

— Modifique el valor de parámetros de USR (lí¬ 
nea 118) para los siguientes punteros: 

- 560: loe. inicial de Lista de Despliegue 

- 144: loe. final programa BASIC 

- 88: loe. inicial primer carácter en pantalla 

- 85: valor posición en línea del cursor 

- 128: loe. inicial del programa BASIC. 


20 REH Rutina para exaninar el conte¬ 
nido de dos localizaciones de nenoria 
seguidasCLOC y L0C+1) 

25 REH Util para exaninar localiza¬ 
ciones que funcionan cono PUNTEROS 
30 REH El valor de retorno corresponde 
a la dirección 

35 REH VER=Valor en LOC + 256 * Valor 
en LOCU 

40 REH El fornato de llanada es: 

50 REH VER=USR (DPEK,LOC) 

60 REH LOC corresponde a localización 
de nenoria que desea exaninar 
100 DPEK=ADR 
110 VER=USR(DPEK,560) 

120 ? VER 

130 REH El puntero de localizaciones 
560 y 561 apunta al conienzo de 
LISTA de DESPLIEGUE para H0D0 
140 REH la variable VER retorna el 
valor de esta dirección 
150 REH nodifica para otros MODOSGRAF. 


Los valores DATA correspondientes a la rutina son: 
104, 104, 133, 205, 104, 133, 204, 160,0, 177, 
204, 133, 212, 200, 1 77, 204, 1 33, 213, 96 



Una interrogante pa¬ 
ra el próximo mes: 
¿Qué diferencias exis¬ 
ten entre esta rutina 
y la del mes ante¬ 
rior en relación a la 
forma de almacenar¬ 
la en memoria? 
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TIPIANDO 


JUEGO DEL MES: 

Pánico 


Cada mes publicaremos 
un juego no bélico, que 
desarrolle ciertas habilidades. 
Se aceptan contribuciones 
de nuestros lectores. 


PANICO es un juego para dos jugadores, ejecuta¬ 
ble en el ATARI 600 XL, 800 XL ó 130 XE. 

Tipee el listado de las páginas siguientes, asegu¬ 
rándose de no cometer errores. Luego grabe el progra¬ 
ma en casetera o diskettera, según instrucciones pro¬ 
porcionadas en las columnas CASSETTE y DISKET- 
TE. Finalmente inserte los joysticks y ejecute el pro¬ 
grama. 

Al presionar el botón rojo aparece la pantalla de 
PANICO. 

¿Dónde está el sentido práctico educacional? 

Este punto es un desafío, ya que no se propor¬ 
cionan instrucciones para jugarlo. Usted debe usar 
intuición y afán de descubrimiento para encontrar el 
modo de hacerlo. 



PARTICIPANDO 

MUNDOATARI desea promover la par¬ 
ticipación de sus lectores. En este número 
publicamos el programa Tablas de Multipli¬ 
car enviado por Marilú Diez. 

0 GRAPHICS 2+16'8? 886; 11 MULTIPLICA CIOME 
5" 

1 P0SITI0M 0,4:? 886;“5QLO 1 AL 12" 

2 fOR A=1 T0 1300:NEXT A 

3 DIN A$(l) 

4 REN *** MARILU DIEZ 

5 P0KE 752,1:TRAP 160 

10 ? “N":SETC0L0R 2,12,20:P0SITI0M 4,2 
:? “TABLA ES LA DEL : ";:IMPUT 5 

15 IF 5>12 THEN 10 

16 IF 5<1 THEN 10 
20 FOR N=1 T0 12 

30 ? = “;S*M 

40 NEXT N 

41 ? :? :? :? “ oprima start para segu 

IR ” 

42 IF PEEK (53279)06 THEN 42 

50 ? “N":? " DESEA OTRA TABLA CS/N)“;: 
INPUT A$ 

55 IF A$=”5“ THEN 10 
60 IF A$=“N” THEN 100 
70 GOTO 50 

100 ? ”N":P0KE 752,0:END 
160 ? “ USE SOLO NUMEROS !!!!” 

170 TRAP 40000 

El ¡je dos programas de la lista publicada 
en páginas 38-39 y a vuelta de correo serán 
enviados a tu domicilio. Escríbenos. 




Envíe a la casilla 458, Correo Ñuñoa, las conclu¬ 
siones acerca de la forma de jugarlo. Todas las res¬ 
puestas correctas recibirán un estímulo de MUNDO- 
ATAR I, la revista amiga. 

Hasta el próximo mes, y que se entretengan. 
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TIPIANDO 



PÚNICO JUEGO JUNIO 


2 REH 
18 GOTO 22880 
5888 REH 

5818 51=5TICK(8):S2=5TICK C1J:Fi=AF ÍF1+ 
1+F (51))¡ F2=AF (F2+Í»F(52) ) 

5828 reh HQ1EQ999BBH 
5830 IF 51>12 THEN 5845 

5848 COLOR 18*F1:PL0T XI,Y1 
5845 IF 5TRIG(8)=8 THEN 51=14 

5849 REH ■:ill4WHMffiTiIíMin 7Ji 
5858 IF 51014 ANO 51013 THEN 5874 
5855 U=1IF 51=13 THEN U=2 

5868 TRAP 5874.'LOCATE Xi+5(8,Fi)*tl, Y1+ 
5íl,Fl)*U,K 

5865 IF K<>32 THEN 5874 

5878 COLOR 32:PL0T XI,Yl:Xi=Xl+S(8,Fi) 

*U:Y1=Y1+S(1,Fl)*U¡COLOR 18+F1:PL0T XI 

,Y1.'P0KE 53761,18:P0KE 53761,8 

5872 B1=B1-2*(51=13) 

5874 REH ■EQ3MIIEIÍKIXE9H 
5888 LOCATE X1+5(0,F1),Yi+5C1,F1),K 
5885 IF K>183 AND K<187 THEN 01=18:COL 
OR 32:PL0T Xi+5(8,F1),Y1+S(1,F1):B1=B1 
+5 

5898 IF IC>41 AND K<58 THEN B2=B2~2¡B1= 
Bi+2:P0KE 788,156:501IND 2,18,4,15 
5199 REH ■JI[tfTtIil?»>IiH—i^ 

5288 IF 52>12 THEN 5219 

5218 COLOR 42+F2:PL0T X2,Y2 
5215 IF 5TRIG(1)=8 THEN 52=14 

5219 REH gTná'JJIIIIrfTiTiTMiTitl i 
5228 IF 52013 AND 52 014 THEN 5259 
5225 U=l:IF 52=13 THEN U=2 

5238 TRAP 5259:L0CATE X2+5(B,F2)*U,Y2+ 
5(1,F2)*U,K 

5248 IF K<>32 THEN 5259 

5258 COLOR 32:PL0T X2,Y2:X2=X2*5(8,F2) 
*11 ¡Y2=Y2+5(1,F2)*U¡ COLOR 42+F2¡PL0T X2 
,Y2:P0KE 53761,18:P0KE 53761,8 

5252 B2=B2-2*(52=13) 

5259 REH 

5278 LOCATE X2+5(0,F2),Y2+5(1,F2),K 
5288 IF K)183 AND K<187 THEN 01=18¡COL 
OR 32:PL0T X2+5(8,F2),Y2+5(1,F2):B2=B2 
+5 

5298 IF K>9 AND K<18 THEN B1=B1-2:B2=B 


MODIFICÓ NIVEL 


JUGADOR UNO 


2+2¡PQKE 789,286:50UND 3,16,4,15 
5358 REH 
5398 REH 

5488 IF Bl>8 THEN COLOR 168:PL0T 8,B1P 
:BlP=BlP-l:Bl=Bl-8 

5485 IF Bl<8 THEN COLOR 41:PL0T 8,B1P: 
BlP=BlP+l:Bi=Bl+8 

5486 IF B1PC8 THEN B1P=8:B1=8 

5487 IF B1P>18 THEN F=2:G0T0 9888 
5418 COLOR 160+INT(Bl+0.5):PLOT 8,B1P 
5449 REH 

5478 IF B2>8 THEN COLOR 168:PL0T 19,B2 
P:B2P=B2P-l:B2=B2-8 

5488 IF B2<0 THEN COLOR 41:PL0T 19.B2P 
:B2P=B2P+1:B2=B2+8 

5482 IF B2P<0 THEN B2P=8:B2=8 
5484 IF B2P)18 THEN F=i:GOTO 908B 
5490 COLOR 168+B2¡PL0T 19.B2P 
5500 B1=B1-0.1:B2=B2-0.1 
5889 REH 

5899 REH RANDOH 0ICTIH5 
5980 IF PEEK(53778)>9 THEN 5948 
5910 I=INT(16*RND(0)+2):J=INT(10*RND(8 
)+l) ¡LOCATE I, J,D:IF D032 THEN 5918 
5920 COLOR INT(3*RND(0))+184¡PLOT I,J¡ 
POKE 77,8_ 

5948 reh ■BCEEEaBHHBü 

5958 50UND 1,0,8,01:01=01-2¡IF 01<8 TH 

EN 01=0 

5960 50I1ND 2,8,8,8:50UND 3,8,8,0 
5988 PONE 708,150-6*(B2P>8)¡POKE 789,2 
08-8*(BlP>8)¡POKE 53768,197 
6088 GOTO 5888 

9888 reh ■■oocsmosm 

9085 50UND 0,0,8,8:SOUND 1,0,8,8:5OUND 
2,0,8,8¡5OUND 3,8 I 0 I B:POKE 70B,i50:PO 
KE 709,288 

9830 COLOR 32¡PLOT XI,Yl:PLOT X2,Y2 
9840 J=10:X=X1:Y=Y1:IF F=2 THEN J=42¡X 
=X2:Y=Y2 

9850 FOR 1=1 TO 15:F0R K=8 TO 7 
9060 COLOR J+K:PLOT X,Y:NEXT K¡NEXT I: 
RESTORE 9180 

9088 READ I,J:IF I=-l THEN 927B 
9090 SOIIND 0,1,18,8:50I1ND 1,1+1,10,8¡F 
OR K=i TO J/4¡NEXT K¡GOTO 9088 
9100 DATA 237,108,177,188,140,108,117, 
208,140,108,117,280,140,100,117,288,14 
0,108,177,300,177,500, -1, -1 
9278 SDUND 0,0,8,0¡50UND 1,8,0,8 
9275 P05ITI0N 1,0¡? 06:‘T TOTW.IiTJiT.TiT.TI 
I"¡POKE 712,8¡POKE 711,6¡POKE 718 


ro JO 


► 


JULIO 1987 


19 



























TIPIANDO: continuación 


,4 

9289 IF STRIGÍ0) AMD STRIG(I) THEM 928 
0 

9285 B1P=0:B2P=0 

9290 GOTO 25000 
22000 REH INITIALIZE 

22100 DIH F(15),5(1,7),AF(9) 

22190 RE5TORE 22205 

22200 FOR 1=0 TO 15:READ D:F(I)=D:NEXT 
I 

22205 DATA 0,0,0,0,0,l,l,l,0,-i,-l,~l» 
0 , 0 , 0,0 

22210 FOR 1=0 TO l:FOR J=0 TO 7 
22228 READ D:5(1,J)=D¡NEXT JiMEXT I 
22230 DATA 0,l,l,Í,8,-l,-i»-l 
22240 DATA -1,-1,0,1,1,1,0,“1 
22250 FOR 1=0 TO 9:READ D:AF(I)=D:NEXT 
I 

22260 DATA 7,0,1,2,3,4,5,6,7,8 

23000 GOTO 27000_ 

25000 REH ■MMtMWHiffi Él 

25005 IF PEEK(1536)=154 THEM CHBA5E=PE 

EK(1536)#256:GOTO 25150 

25010 CHBA5E=(PEEK(742)-4)*256:PQKE 74 

2,PEEK(742)-5:POKE 1536,CHBASE/256:POK 

E 756,CHBA5E/256 

25080 FOR 1=0 TO 511:P0KE CHBA5E+I,PEE 
K(57344+1):MEXT I:REM HOVE ROH SET 
25120 FOR I=CHBA5E+8 TO CHBA5E+216:REA 
D DiPOKE I,D¡MEXT I 

25150 GRAPHICS 2+16:POKE 756,CHBA5E/25 
6 


datos SET CARACTERES 


25160 

REH 1 

25178 

DATA 

25171 

DATA 

25172 

DATA 

25173 

DATA 

25174 

DATA 

25175 

DATA 

25176 

DATA 

26 


25177 

DATA 

,126 


25178 

DATA 

25180 

DATA 

25190 

DATA 

25200 

DATA 

25210 

DATA 

25220 

DATA 

25230 

DATA 

25240 

DATA 

25250 

DATA 


I oc toe |OC 90C toe I9C toe 
2t/,X4.0,ll.D,X4.W|XAU|X4.1l|4.4.Ü 

8j 8#8 

40,56,40,146,124,56,124,130 

4,40,37,154,120,118,48,8 

136,80,119,122,119,80,136,0 

8,48,118,120,154,37,40,4 

65,62,28,62,73,20,28,20 

16,12,158,30,89,164,28,32 

0,17,10,238,94,238,10,17 

32,20,164,89,30,110,12,16 


25280 DATA 8,127,68,68,79,124,75,74 
25290 DATA 0,255,34,34,255,72,255,0 
25380 DATA 0,254,34,34,250,30,234,74 
25310 DATA 74,74,78,74,122,74,78,122 
25320 DATA 74,202,46,26,250,18,254,8 
25338 DATA 74,75,122,76,79,72,127,0 
25340 DATA 108,84,254,68,124,126,219,2 
15 

25350 DATA 12,24,48,113,127,63,99,8 
25360 DATA 12,138,287,252,254,124,40,1 
08 

25370 DATA 8,69,213,247,127,62 ,8,8 

26000 rem ■KDSnEMSiEEHB 

26085 POKE 708,150:POKE 709,200:POKE 7 
10,240:POKE 711,288:POKE 712,2:B1=8:B2 

=8 

26018 COLOR 146:PL0T 1,0¡COLOR 147¡DRA 
HTO 17,8:COLOR 148:PL0T 18,0:COLOR 149 
¡DRAHTO 18,10 

26028 COLOR 150:PLOT 18,ii:C0LQR 147:D 
RAHTO 2,11 

26030 COLOR 151:PL0T 1,11:COLOR 149:DR 
AHTO 1,1 

26040 COLOR 8:PL0T 0,11:COLOR 40:PLOT 
19,11 

26050 COLOR 168:PL0T 0,10¡DRAHTO 8,0:P 
LOT 19,10!DRAHTO 19,0 
26060 Xl=5:Yl=5:X2=14:Y2=5:COLOR 10:PL 
OT XI,VI:C OLOR 42iPL0T X2,Y2:G 0T0 5000 
27000 reh 

27018 GRAPHICS 2+16:P0KE 708,48:T=5 
27011 SOUND 8,250,10,10:SOUMD 1,251,10 
,10:SOUMD 2,252,10,18:K=4 
27028 FOR X=i TO 18¡COLOR 42:PL0T X,0! 
DRAHTO 19-X,ll:P0KE 718, PEEK(53778) 
27825 POSITIOM 3,5:? tt6¡"BEEHQSain 
1":IF MOT 5TRI6Í0) OR MOT STRIG(i) T 
HEN 27100 

27030 COLOR 0:PLOT X,0:DRAHTO 19~X,11 
27048 NEXT X 

27850 FOR Y=1 TO 10:COLOR 42:PL0T 19,Y 
¡DRAHTO 0,11-Y:POKE 710,PEEK(53770) 
27052 POKE 53768,K:J=J+l:IF J=40 THEM 
J=0:K=4*(K<>4)+6#ÍK<>6) 

27055 COLOR OíPLOT 19,Y¡ DRAHTO 8,11~Y 

27056 POSITIOM 3,5:? tt6; 

§":IF MOT STRIG(0) OR MOT 5TRIG(1) T 
HEN 27100 

27060 NEXT Y¡GOTO 27028 
27100 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUH 
D 2,0,0,0!POKE 710,58¡GOTO 25000 
27206 RETURN 
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UTILITARIOS 


Torpedo) 


Este mes proporcionamos una rutina de SORT 
elemental. 

Sort es un conjunto de instrucciones para or¬ 
denar una serie de números o palabras. Este orde¬ 
namiento puede ser ascendente o descendente. 

La presente serie de instrucciones corresponde 
a una forma elemental de ordenamiento y por ello 
tiene puntos negativos que podrá apreciar al ejecu¬ 
tarla. Por ahora importa enseñar esta técnica a un 
gran número de usuarios iniciales. 


Descripción del programa: 

10-120 Ingresa parámetros para el conjunto de pa¬ 
labras que ordena 

150 Dimensiona las variables de acuerdo a los pará¬ 
metros 

165 Inicializa la variable S$ con espacios en blanco 
170-230 Ingresa palabras (elementos) en desorden 
300-350 Edita en pantalla los elementos ingre¬ 
sados 

400-410 Dimensiona e inicializa un arreglo A 
420-490 Ordena los elementos por comparación 
con el siguiente y según el resultado de la 
comparación lo cambia de lugar 
500-580 Edita los elementos ordenados 
7000-7098 Subrutina de comparación 

COMENTARIO: Digíte en modo directo el string B$ 
y observará que no se cambian las posiciones. El or¬ 
den relativo se encuentra en el arreglo de punteros A. 

Como un desafío para nuestros lectores pro¬ 
ponemos enviar una rutina en BASIC que permita 
optimizar el proceso anterior. Por supuesto que la 
solución publicada tendrá premios de incentivo. # 



10 REM 

20 GRAPHICS 0 




40 P0SITI0N 0 f 2:? " HUMERO DE ELEMENTO 
S ■■ 

50 IHPUT N 
60 N=INT(M) 

70 P05ITI0N 0,4í? » DIMENSION MAK. DE 
ELEMENTO" 

80 INPUT D 
90 D=INTCD) 

100 IP D<N*D THEN 150 

110 POSITION 0,5:? " 

• 

120 GOTO 70 

150 DIM 5*CN*D),ELE*CD),MENOR*CD),MAYO 
R*CD) 

160 ? CHR*(125) 

165 5*(1)=" ":5*CN*D)=" M :5*C2)=5* 

170 F0R J=1 T0 N 
180 INC-(J”1)*0 

190 ? "INGRESE EL ELEMENTO II ";J 
200 INPUT ELE* 

210 L=LENCELE*J 

220 5$(1+INC,D+INC)=ELE* 

230 NEXT J 
300 ? CHR*C125) 

310 P05ITI0N 0,0:? "LOS ELEMENT05 DEL 
ARREGLO INGRESADOS SON " 

320 F0R J=i TO N 

330 INC-IJ”1)#D 

340 ? J,5$(1+INC,D+INC) 

350 NEXT J 


400 DIM A(N) 

410 FOR J=0 TO N:A(J)=J:NEXT J 
415 5=0 

420 FOR J=1 TO N~1 

430 GOSUB 7000 

440 IF C=0 THEN 470 

450 T=ACJ):ACJ)=AWU):ACJU)=T 

460 5=5+C 

470 NEXT J 

480 IF 5=0 THEN 500 

490 GOTO 415 

500 ? CHR*(125) 

510 P05ITI0N 0,0í? " INICIAL ORD 

ENNADO" 

520 FOR J=1 TO N 

530 INC=CJ-1)*D 

540 ? J, 5*(1+INC,D+INC) ; 

558 K=A(J) 

560 0RDEN=(K-1)*D 

570 ? " ";5$C1+0RDEN,D*ORDEN) 

580 NEXT J 
900 END 

7000 C=0:P=ACJ):Q=A(J+1) 

7010 INC=(P~1)#D 

7028 MEN0R*=5*(1+INC,D+INC) 

7030 INC=(Q-1)*D 

7040 HAY0R*=5*(1+INC,D+INC) 

7050 FOR K=1 TO D 
7060 NE=ASC CMENOR* (K, K)) 

7070 MA=A5C(MAYOR*(K,K)) 

7080 IF MEOMA THEN 7095 

7090 NEXT K:C=0 

7095 IF ME>MA THEN C=1:RETURN 

*7oan DPTIIDW 
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TECNICAS 


Lista de 

Despliegue 


SOLUCION DEL NUMERO ANTERIOR 

Respecto de la sugerencia de la columna De byte en byte 
para editar el texto "MUNDOATARI" basta incorporar: 

POKE 87, 0: POKE 88, LOW; POKE 89, HIGH: POSI 
TION X, Y: PRINT "MUNDOATARI" 

Esta es una solución más práctica. 

Investigue los valores de LOW, HIGH, X e Y para 
que los resultados sean los esperados (ver referencia en 
MUNDOATARI No. 1, columna De byte en byte) 


138 ANTIC=PEEK(VER) 

146 GRAPHICS 0 

150 ? :? ■' NODO GRAFICO BASIC 3 "¿J 
160 ? :? M ANTIC = n jAHTI 

C 

170 ? :? " presione RETURN v continua 

■i 

180 INPUT RE5S 
190 HEXT J 


Este mes continuaremos el contenido de Lista 
de Despliegue, analizando las instrucciones ANTIC. 

INSTRUCCIONES ANTIC 

Consecuentes con la definición práctica inte¬ 
gral de nuestra revista utilizaremos este mes el pro¬ 
grama de la columna USR (programa Doble PEEK) 

ACTIVIDADES: 

1. Digite el siguiente listado: 


10 DIN RE5$(1) 

20 REM Rutina para exaNinar el conte¬ 
nido de dos localizaciones de MeMoria 
seguidastLOC y LOCH) 

25 REH Util para exaMinar localiza¬ 
ciones que funcionan como PUNTEROS 
30 REH El valor de retorno corresponde 
a la dirección 

35 REH VER=ualor en LOC + 256 * Valor 
en LOC+1 


40 REH El forMato de llaMada es: 
50 REH VER=U5R(DPEK,LOC) 


60 REH LOC corresponde a localización 
de MeMoria que desea exaMinar 


98 FOR J=0 TO 15 
95 GRAPHICS J 
100 DPEK=ADR ("hhüCh? 
110 MER=U5R(DPEK,568) 
120 MER=VER+6 


L CiLiTHiLiU 




2. Observe que se utiliza la rutina de USR DPEK 

3. Ejecute y complete la siguiente tabla con los 
valores editados: 


Modo Gráfico BASIC 

ANTIC (valor) 

0 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 

• 

13 


14 


15 



Ahora bien, planteemos la siguiente inte¬ 
rrogante: ¿Qué importancia tienen estas instruc¬ 
ciones ANTIC para el despliegue de la pantalla? 

El microcomputador ATARI tiene un soporte 
especial para la educación por sus características 
gráficas de fácil acceso vía ATARI BASIC. Para 
ello, la instrucción GRAPHICS dispone de patro¬ 
nes standard. 
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TECNICAS 


Ahora bien, el despliegue característico de la 
pantalla lo controla el ANTIC mediante su set de 
instrucciones propias: la Lista de Despliegue. 

La actividad siguiente permitirá estudiar lo 
afirmado directamente al computador: 

ACTIVIDAD: 

1. Digite el listado siguiente: 


10 FOR H0DO=0 T0 5 
20 GRAPHICS M0D0+16 
30 DL^PEEK 1560) F256NPEEK (561) 

40 IF NODO<>0 THEN 100 

50 PO5ITI0N 0,0:? "0123456789012345670 

901234567890123456789" 

60 FOR J=1 TO 22:P05ITIÜN 0,J:? J:NEXT 
J 

70 P05ITI0M 15,15:? "HODO GRAFICO ";H0 
DO 

90 GOTO 500 

100 IF N0D0>2 THEN 300 
110 LIN=24/H0D0-1 

120 P05ITI0N 8,0Í? St6," "012345678912345 
6789" 

130 FOR J=1 TO LIN:P0SITI0N 0,J:? »6;J 
íNEXT J 

140 P05ITI0N 3,3:? lt6;"M0D0 =";H0D0 
150 GOTO 500 

300 RESTORE 700+HODO:READ X,Y 
310 FOR J=0 TO X 
320 COLOR 1 

330 PLOT J,0:DRAMTO J,Y 
340 A=1 A 1 
350 COLOR 0 

360 PLOT J,0:DRAMTO J,Y 
370 NEXT J 
410 FOR J=0 TO Y 
420 COLOR 1 

430 PLOT 0,J:DRAMTO X,J 
440 A=1 A 1 
450 COLOR 0 

460 PLOT 0,J:DRAHTO X,J 
470 NEXT J 

500 IF H0D0>2 THEN 550 

510 FOR TIME=1 TO 5000:NEXT TIME 

550 NEXT HODO 

703 DATA 39,23 

704 DATA 79,47 

705 DATA 79,47 


2. Ejecute con instrucción RUN. 

3. Complete el cuadro de la próxima columna: 

4. Información adicional en el manual de su equi¬ 
po (Página 47, Tabla 9. 1 / Coelsa Computación). 


Me 

BASIC 

►do 

ANTIC 

Líneas 

Cois. 

Tipo 

Color 

0 






1 






2 






3 






4 






5 







Una de las características determinantes es el 
Tipo de Modo, es decir, si es un modo de texto o 
uno de características gráficas. 

ACTIVIDAD: 

1. Digite el listado siguiente: 


10 DIH RES$(1) 

20 FOR J=1 TO 23 
30 GRAPHICS 0 

40 DL-PEEK(560)+256*PEEK(561) 

50 LOCuDL+SFJ 

60 P05ITI0N 0,0í? "PRESIONE RETURN" 
70 POKE L0C,6 

88 P05ITI0N O,J:? "LINEA tt ";J 

90 INPIIT RE5S 

100 PONE LOC, 2 

110 NEXT J 

150 END 


2. Ejecute. 

3. Observe los cambios que se producen en cada 
línea. 

4. Interprete los cambios producidos, según las 
líneas de programa (ayúdese con la Tabla de 
Lista de Despliegue de Modo 0 que aparece en 
MUNQOATARI No. 0, página 26). 

5. ¿Cuál es la razón de los cambios producidos? 

6. ¿Qué interpretación tiene la variable LOC pa¬ 
ra el programa? 

7. ¿Qué significado tiene el valor 6 que se intro¬ 
duce en la localización LOC? 

8. ¿A qué Modo Gráfico BASIC corresponde la 
línea modificada? 

9. ¿Qué sucede si introduce el valor 1 en la loca¬ 
lización LOC? Modifique el programa y eje¬ 
cute. 

Si usted se concentra en el tema y resuelve las 
interrogantes estará en condiciones de producir 
Modos Mixtos en la pantalla de su ATARI. 

En el próximo número iniciaremos‘un resu¬ 
men al respecto. 

Dirija sus dudas, consultas y sugerencias sobre este 
tema a MUNDOATARI, casilla 458, Correo Ñuñoa, Stgo. 


* 
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TUTORIA 


Primeros 
pasos en 
ATARI BASIC 



Rutina coleccionable para usuarios con dominio 
mínimo dei A TARI BASIC. 


TECLAS DE CONSOLA 

La columna ATAR! BASIC presenta en este 
número una rutina de interés para los usuarios en 
general y que resuelve la selección de un ítem de 
un menú. 

Una opción es usar el teclado como ingreso, 
que requiere de una rutina especial para transfor¬ 
marlo en inteligente (ver MUNDOATARI No. 0: 
teclado inteligente). 

Otra opción alternativa de ingreso son las te¬ 
clas de la consola: 

SELECT 

START 

OPTION 

que pueden presionarse en forma aislada o combi¬ 
nadas. 

¿Cómo podemos controlar los valores? 

Existe una localización de la memoria ubica¬ 
da en uno de los chips el GTI A, y que es la 53279, 
llamada CONSOL. 

ACTIVIDAD: 

Digite el siguiente listado: 

10 CONSOL = 53279 

20 PRINT PEEK(CONSOL) 

30A = rrri 

40 GOTO 20 

Ejecute con RUN y RETURN y presione las 
teclas mencionadas para completar el cuadro si¬ 
guiente: 


Tecla(s) 

presionada(s) 

Valor en loe. 
53279 

Sin presionar 


OPTION 


SELECT 


START 


SELECT + START 


START+OPTION 


SELECT + OPTION 


SELECT +OPTION + START 



Para comprobar los valores correspondientes 
éstos son en orden: 7, 6, 5, 4, 3, 2,1,0. 

Ahora la rutina del mes. 

Digite cuidadosamente el siguiente listado: 


16 REH MENU 3ELECCI0NAD0R POR 

CONSOLA 

15 »IM TIT$(20),PAUSAS(1) 


26 C0N30LA=53279 


36 GRAPHIC5 6 


46 P05ITI0N 13,3:? " M E N 

11" 

45 RESTORE 666 


56 FOR J=6 TO 4 


60 REA» TIT$ 


76 POSITION 16,5+J*2 


80 ? TIT$ 


96 NEXT J 


100 POSITION 9.18:? 

selecci 

ona" 


110 POSITION 9,19:? «fíM 

partida 
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ii 

120 G05U8 1000 

130 P05ITION 0,20:? "PRESIONE Return y 
continua" 


140 INPUT PAUSAS 


150 GOTO 30 



600 DATA Q 

OPCION 

uno 

601 DATA 0 

OPCION 

dos 

602 DATA B 

OPCION 

tres 

603 D<)TA Q 

OPCION 

cuatro 

604 DATA S 

OPCION 

cinco 

1000 PONE 752,l:X=6 

¡Y=5:POSITION X,Y:? 


»==zfl" 

1010 C=PEEIC (CONSOLA) 

1020 IF C<>7 THEN 1050 
1030 GOTO 1010 
1050 IF C<>5 THEN 1100 
1060 P05ITI0N X,Y:? " "1 

1070 Y-Y*2:IF Y>13 THEN Y=5 
1080 P05ITI0N X,Y:? "===fl ,, 

1090 T-1 A 1:G0T0 1010 
1100 IF C<>6 THEN 1010 
1110 REH RUN"DPROGRAH. T0Y" 

1120 ? CHR$(125) 

1130 POSITION 0,10:? " Ejecuta el prog 
rana seguna la " 

1140 POSITION 0,12:? " la extensión Y 

ii 

1150 RETURN 


Ejecute y seleccione una de las opciones. 
Este menú utiliza sólo dos de las teclas de 
consola: SELECT y START. 

Comentario: 

10-110 Líneas para editar la pantalla MENU 
1000-1150 Rutina de selección de menú 
1000 Elimina el cursor y define posición inicial 
para editar nuevo cursor. 

1020 Direcciona para clave diferente a espera (sin 
presionar) 

1050 Direcciona para SELECT 
1060 Borra la posición anterior del cursor 
1070 Incrementa las variables para editar el cursor 
en nueva posición y establece límite de la 
última línea 

1080 Edita nueva posición del cursor 
1090 Pausa y regresa para esperar nueva tecla de 
consola a presionar 

1100 Si la tecla presionada es distinta a SELECT 
o START, no es tomada en cuenta 
1110 Ejecuta el programa según la variable Y. 

OBSERVACION: Para que direccione hada la op¬ 
ción elegida es necesario cambiar la extensión según 
el número de variable (uso de substring). • 



MUNDOATARI 


TARJETA 

DE 

REFERENCIA 

TODA LA INFORMACION 
ACTUALIZADA DE ATARI 

EN SU BOLSILLO 
POR SOLO $570 


INDICE 

— Instrucciones Lenguaje ATARI BASIC 

— Códigos de Comando XIO 

— Movimientos del Joystick 

— Valores de tonos en comando SOUND 

— Formato de área para Player/Missiles 

— Nombres simbólicos de dispositivos 

— Nemónicos de lenguaje ASSEMBLER 6502 

— Direcciones frecuentes de PEEK/POKE 

— Mensajes de error 

— Valores para registros de COLOR 

— Tabla de traducción de códigos 

— Códigos internos de teclado (PEEK(764)) 

— Conversión Hexadecimal-Decimal 

— Set de caracteres asumidos 

— Especificación de Modos Gráficos 
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MEMORIA 


De byte 
en byte 


!. MANEJO DE TABULACION 

Localizaciones 675 - 689 

Este mes la sección DE BYTE EN BYTE dará 
ipoyo al profesor Chip, encargado de la columna 
\SSEMBLER, para buscar una aplicación de mi¬ 
neros binarios que se relacione con la pantalla. 

Un buceo profundo en el área de pantalla per- 
nltió detectar las localizaciones que controlan la 
josición del TAB. 

Estas son: 675, 676, 677, 678, 679, 680, 681, 
382, 683, 684, 685, 686, 687, 688 y 689. Un to- 
al de quince localizaciones consecutivas. 

Existen 120 posiciones para el cursor que 
equivalen a 3 líneas en modo gráfico 0 con 40 ca- 
-acteres cada una. 

En MUNDOATARI No. 1, página 28 aprendi¬ 
mos que un byte (localización de memoria) se en¬ 
cuentra formado por ocho bits. Cada uno de ellos 
corresponde a un número binario (las ampolletas 
de los ejemplos). 


Cada bit tendrá una equivalencia con la posi¬ 
ción de la pantalla, de allí que las localizaciones 

sean 15: 

15 * 8 = 120 posiciones 

ACTIVIDAD: 

Encienda su ATARI y digite en modo directo. 

POKE 675, 255 

Mueva la tecla TAB y observe su comporta¬ 
miento. t 

Al introducir el valor 255 a la localización 

675, el binario equivalente es: 1 1 1 1 1 T 1 1. 
En consecuencia hemos introducido TAB en las 

posiciones 1,2, 3, 4, 5, 6, 7 y 8. 

Investigue pokeando valores en las otras loca¬ 
lizaciones y compruebe el comportamiento de 

TAB. . 

A continuación una rutina exclusiva de MUN- 

DOATARI creada por el ayudante 6502 en sus 
noches de insomnio. Digite cuidadosamente el 
listado siguiente: 


10 REH RUTINA PARA TABULAR A UN MAXIHO 
DE 12 POSICIONES 
20 DIN AS Í96J,PAUSASCl),TENPS C8) 

30 GRAPHICS 0 

32 POSITION 0,2:? " DIGITE EL NUMERO D 
E TAB." 

33 INPUT T 

34 IF T>12 THEN 30 

35 DIN A(T) 

38 FOR J=0 TO T:ACJ)=0:NEXT J 
40 FOR J=1 TO T 

42 ? " DIGITE posición de TAB ";J 
45 INPUT P 
50 A(J)=P 
55 NEXT J 

60 AS=“0000000000000000000000000000000 
00000000000000000000000000000000000000 
000000000000000000000000000 “ 

65 FOR J=i TO T 
70 P^ACJÜASfP.P)^'!" 

75 NEXT J 

80 FOR M=1 TO 12 

81 ? N 

90 INC=CN-1)*8 

100 TENPS=AS(i+INC,8+INC) 

101 ? TENPS 
110 GOSUB 150 

120 POKE 674+N,DECIMAL 

121 ? DECIMAL 
130 NEXT N 

135 POSITION 0,20!? " PRESIONE Return 
y continua" 

140 ? CHRSC125):? "PRESIONE la tecla T 
AB" 

145 END 

150 DECIHAL=0:INDICE=0:FOR J=8 TO 1 st 
EP -1 

160 DIGITO=VALITENPS 

170 DECIMAL=DECIHAL+(DIGIT0*2AINDICE) 

180 INDICE=INDICEU 

190 NEXT J 

200 RETURN 

250 END 


Ejecute y evalúe las posibilidades de esta ru¬ 
tina en algún otro programa. Puede utilizarla sin 
remordimiento de herir el amor propio de 6502. 


£7 próximo numero final Hará el análisis de las localiza¬ 
ciones que se relacionan con la pantalla. 
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¿BASIC o LOGO? 


Una buena pregunta para ¡os profesores de computación A TARI: 

¿Cuál lenguaje es mejor? 

¿Cuál me conviene usar? 

• ' . 


MUNDOATARI ha dedicado desde sus núme¬ 
ros iniciales especial preferencia hacia el lenguaje 
BASIC, pero esto no significa dejar de lado otros 
lenguajes. 

Este artículo compara algunas características 
de dos lenguajes de uso más común en la sala de 
clases: BASIC y LOGO. 


La pauta de comparación será considerando 
cuatro aspectos: 

1. Diseño gráfico 

2. Animación (movimiento de figuras ) 

3. Efecto musical 

4. Almacenamiento de datos en los periféricos 
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LOGO: continuación 



| :.a:a: xa 



□$a 

i 

30: a 

■ m e3 



un m~ 

M v » £3 

:xxj 


:a 

u:.a sa m 


[lasan§3 :x.x;j 


GRAFICOS: 

La capacidad del LOGO sobresale por su geo¬ 
metría relativa, llamada también geometría de la 
tortuga. El BASIC usa para ello las coordenadas 

cartesianas. 

El acceso a modos gráficos es mayor en el 
BASIC, pero la concepción del LOGO lo destaca 
para el desarrollo de la imaginación de los edu¬ 
candos. 



MUSICA: 

En BASIC existen cuatro canales que se usan 
con la instrucción: 

SOUNDa, b, c, d 

En LOGO existen dos tonos que pueden con¬ 
trolar frecuencia, volumen y duración. 



ANIMACION: 

La herramienta esencial para animación en el 
ATARI son los Player Missil, técnica que permite 
desplazar figuras en la pantalla. 

Los player deben ser definidos en BASIC y 
desplazarlas usando rutinas en lenguaje de má¬ 
quina. Para el LOGO la tortuga es un player y 
puede ser definida con las características propias 
de los player. 


ALMACENAMIENTO DE DATOS: 

En LOGO los DATA que se almacenan son: 
números, palabras y listas. 

Los números son números, las palabras son 
conjuntos de caracteres y las listas son grupos de 
números. 

En BASIC los DATA son números o strings. 


Estas diferencias, comentadas someramente en e! inicio de Ia columna LOGO, deben ser consideradas en 

ios procesos para aprovechar adecuadamente cada lenguaje. 
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APLICACIONES 


ClasGS 

con ATARI 


La columna CLASES ha tratado involuntaria¬ 
mente en sus dos primeros números temas relacio¬ 
nados con las matemáticas. 

Gracias por las sugerencias y el apoyo. En esta 
oportunidad nuestra columna de aplicación edu¬ 
cacional apuntará hacia las letras. 

Como nuestro deseo es atender también a los 
más pequeños, el tema de hoy será reconocer las 
letras del alfabeto en el teclado. 

Esto es importante, pues los objetivos que se 
cumplen son múltiples: 

9 

a. Conocimiento de la simbología de las letras. 
Utilizaremos el modo gráfico 2, que presenta 
las letras de mayor tamaño. 

b. Habilidad motriz para ejecutar correctamente 
la letra que aparece en la pantalla. 

c. Iniciar a los pequeños en el reconocimiento en 
el teclado de cada una de las letras del alfa¬ 
beto. 

Como apoyo se proporciona a cada letra una 
nota musical diferente. En conjunto forma este 
programa una actividad que puede ser utilizada en 
casa o en clases con las finalidades descritas. 

Digite el listado siguiente, ejecútelo e invite a 
su hijo para que interactúe con su ATARI. 

Es importante acotar que sus hijos podrán re¬ 
solver más fácil y mejor sus problemas educacio¬ 
nales si desde chicos cuentan con un ambiente fa¬ 
miliar de estudio y apoyo en sus trabajos esco¬ 
lares. En este sentido su ATARI es una herra¬ 
mienta educacional de uso permanente en cual¬ 
quier edad. 

MUNDOATARI, consciente de esta realidad y 
proyección estimula con sus columnas a un desa¬ 
rrollo personal de las diferentes personas que par¬ 
ticipan activamente en la educación. 

Discuta el programa con sus colegas, estimado 
profesor, y si usted pertenece a la familia ATARI 
modifiquelo de acuerdo a sus necesidades. Si los 
resultados le satisfacen envíe su colaboración a 
nuestra revista. 


Profesor ATARIN 



18 REM CLASES HUNDO ATARI ABRIL 87 
15 L=64:X=2:Y=-1 
20 OPEN 81,4,O,"*:" 

38 GRAPHICS 18:G0SUB 280 
40 L=L+i:IF L=91 THEN L=65: RESTORE 
50 Y=Y+1:IF Y-ll THEN Y=0:X=X+3 
60 IF X>18 THEN GRAPHICS 2+16:X=2 
70 P05ITI0N X,Y 
80 ? 86;CHR$(L); 

90 GET 81, K 

100 POKE 16,64:P0KE 53774,64 
110 IF K=L THEN ? 86;CHR$CL); 

120 IF K=L THEN READ A,B 

130 IF K=L AND L<>87 AND L<>89 AND LO 

90 THEN SOUND 0,A,10,10:FOR 1=1 TO B:N 

EXT I:S0UND 0,0,0,0:GOTO 40 

148 IF K=L AND L=87 THEN FOR T=1 TO 3: 

SOUND 0,A,10,10:FOR 1=1 TO B:NEXT 1:50 

UND 0,0,0,0:NEXT TlGOTO 40 

150 IF K=L AND L=89 THEN FOR T=1 TO 2: 

SOUND 0,A,10,10:FOR 1=1 TO B:NEXT 1:50 

UND 0,0,0,0:NEXT T¡GOTO 48 

160 IF K=L AND L=90 THEN SOUND 0,A,10, 

10:FOR 1=1 TO B:NEXT I:SOUND 0,0,0,0:G 

OSUB 200:GOTO 40 

180 DATA 136,100,136,100,91,100,91,100 
,81,100,81,100,91,200,102,180,102,100, 
108,100,108,100,121,50,121,50 
190 DATA 121,50,121,50,136,200,91,100, 
91,100,102,200,108,100,108,100,121,200 
,91,50,102,200,108,100,121,300 
200 RESTORE :F0R T=i TO 11:READ A,B:S0 
UND 0,A, 10,10:FOR 1=1 TO B:NEXT USOUN 
D 0,0,0,0:NEXT T 

210 FOR T=1 TO 2:SOUND 0,121,10,10:FOR 
1=1 TO 100:NEXT I:SOUND 0,0,0,0:NEXT 
T 

220 SOUND 0,136,10,10:FOR 1=1 TO 20O:N 
EXT I:SOUND 0,0,0,0:RETURN 
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Nuestro ATARI es una herramienta maravi¬ 
llosa para la enseñanza de preescolares. En la foto¬ 
grafía observamos un pequeño con el que proba¬ 
mos el programa de hoy y para quien el teclado 
parece ser una parte de su cuerpo. 

En los pequeños se da un instinto especial¬ 
mente desarrollado hacia el descubrimiento y ex¬ 
ploración. Eso es seguramente la diferencia con no¬ 
sotros los adultos, víctimas de prejuicios basados 
fundamentalmente en no errar y pánico al que 
dirán. 

La destreza motriz es una habilidad que puede 
desarrollarse en los preescolares y con mayor razón 
utilizando nuestro computador ATARI. El desafío 
para nosotros consiste en diseñar programas que 
cumplan un propósito específico. 

MUNDOATARI, consciente de esta realidad 
incentiva en esta columna a los padres que posean 
un ATARI en casa, para que exploren y partici¬ 
pen activamente en el desarrollo individual de sus 
hijos mediante esta moderna herramienta pedagó¬ 
gica. ... 

Como es norma en esta columna, no insisti¬ 
mos en la estrategia o el significado del programa, 
pues el objetivo es servir de medio para los fines 
propuestos. 

Nuestro programa de hoy es simple, tipéelo o 
búsquelo en el disco disponible con los programas 
del mes. 


Instale el joystick en el orificio No.1, espere 
un tiempo de inicialización hasta que aparezcan 
unos puntos en la pantalla. 

El trabajo consiste en mover la palanca del 
joystick hasta tocarlos y hacerlos desaparecer. 
El programa termina con una breve melodía y 
puede ser ejecutado nuevamente. 

Si usted puede crear un programa más simple 
y con una motivación específica para los chicos, 
obien desea mayor información acerca de este 
programa escríbanos a la columna PEQUES. 

Esperamos su participación. 


1 x=i0:Y=lB:POlCE 752,1:? H * n : ERRORES 
0: Ct!ENTA=0 S BORRA-1 

2 OIH MC15):F0R J=1 TO 15:M(J)=0:iEXT 
J 

3 G05UB 1800:G05UB 9000 


RUTINA HO'JER JOYSTICK 1 


15 T=STICKC0) ' 

20 IF T=15 THEN POKE PUNTO,128 
40 IF T=14 THEN Y=Y-1 
45 IF T=13 THEN Y=Y+1 
48 G05UB ERROR 
60 IF T=7 THEN X=X*1 
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PEQUES 


\ 


65 IF T=ll THEN X=X~1 
70 G05UB ERROR 
90 IF T=6 THEN X=X«; Y=Y-i 
100 IF T=9 THEN Y=YU:X=X~1 
110 G05UB ERROR 
120 IF T-10 THEN X=X~i:Y=Y-l 
130 IF T=5 THEN Y=Y+1:X=X+1 
140 G05UB ERROR 
200 REH 
210 GOTO 10 
1000 REH__ 

\masw 

1010 FOR J=i TO 15 
1030 K=INT(RND(01*8001 
1040 FOR 1=1 TO 15 
1050 IF M(I1=K THEN POP :GOTO 1030 
1060 NEXT I 
1065 H(J)=K 
1070 NEXT J 

1100 REH DIBUJA LOS PUNT05 RANDOH 
1110 LOC=PEEK C88I+256*PEEK (891 
1120 FOR J=1 TO 15 
1130 PONE LOC+HCJl,64 
1140 NEXT J 

1200 REH HARCA PUNTO INICIAL 
1210 Y=INT(H(11/401:X=H(11-Y*40 
1220 POKE PUNTO,128 
1300 RETURN 
3000 ? "N” 

3010 GOSUB 8200 
3020 END 
3100 END 
8000 REH 

8010 FOR 51=1 TO 30:5OUND 0,200,18,8:5 
OUND 1,230,10,8:NEXT 51:50UND 0,0,0,0: 
50UND 1,0,0,0.* RETURN 

8200 reh mfnmfñimmimn 

8205 FOR 52=1 TO 70:53=INT(RND(01*501+ 
50:5OUND 0,53,10,8:FOR 51=1 TO 7¡NEXT 
51 

8210 SOUND 0,0,0,0:NEXT 52:50UND 0,0,0 
,0:RETURN 
9000 REH 


RUTINA ELIMINA ERROR MOVIMIEN 


TOS FUERA DEL MARCO PANTALLA 


9005 IF Y<0 OR Y>21 THEN Y=0 

9010 IF X<0 OR X>39 THEN X=0 

9015 PUNT0=L0C*Y#48*X;VER=PEEK(PUNTO) 

9020 IF VER=84 THEN POKE PUNTO,10:BORR 

A=BORRA+l;GOSUB 8000: GOTO 9100 

9030 POKE PUNTO,85 

9840 CUENTA=CUENTA+1 

9850 IF B0RRA>15 THEN POP ¡GOTO 3008 

9100 RETURN 


SOLUCION 


Esta es una solución al problema plan¬ 
teado en MUNDOATARI No. O, página 37, 
referido a un programa para identificar el 
Mínimo Común Múltiplo para dos listas. La 
cooperación es de don Daniel Hasler G., 
quien resultó seleccionado para esta ocasión. 
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REH SOLUCION PROGRAMA MINIMO COMUN 
MULTIPLO- REVISTA 0 
REH DANIEL HASLER GONZALEZ 
REH Avenida DORSAL U 1240 
REH DEPTO 102 
REH CONCHALI 

REH SANTIAGO CHILE 

REH W I KNNMMKMMim ' NRNKMMMMMNMI 


10 GRAPHICS 0 

15 DIH FACT1(201,FACT2(20) 

17 REN DinensionaMiento según cantidad 
de Múltiplos.- 

20 PRINT “INGRESE FACTOR 1 =“;:INPUT F 
ACT0R1 

30 PRINT “INGRESE FACTOR 2 =“;:INPUT F 
ACT0R2 

40 PRINT “INGRESE CANTIDAD DE MULTIPLO 

S =”;SlNPUT NMUL 

50 FOR J=1 TO NMUL 

60 PRINT J,JNFACT0R1,J*fACT0R2 

70 FACT1CJ1 = JNf ACT0R1: FACT2 (J) = JWACTO 

R2 

80 NEXT J 

90 FOR X=1 TO NMUL 

100 FOR Z=NMUL TO 1 5TEP -1 

110 IF FACT1(X)/FACT2(Z)=1 THEN PRINT 

“COMUN MULTIPLO = “jFACTKXl 

120 NEXT Z 

130 NEXT X 



Como estímulo se le hará llegar el pro¬ 
grama en diskette Assembler Uno , para que 
continúe con su aprendizaje. Felicitaciones. 
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PRACTICA 


Proyectos 

Tercera Parte 




nicíaliza LISTA 
ordenar la LISTO 
Buscar NOMbre LISTO 
Iwprírtir LISTO 
HOdifica HOMBRE 
Nuevo NOKbre 
GRABO Diskette-Casett 
CARGO Diskette-Casetl 
PROGRAMO 


selocclona 
part i da 


¡Qué tal amigos! Antes que nada debo reco- Complete su listado con el siguiente y exa- 

nocer con agrado el apoyo que nos han brindado mine las modificaciones, 
mis colegas del equipo editorial para colaborar 
en conjunto con nuestro proyecto. Gracias. 

Este mes debemos iniciar nuestra tarea cargan¬ 
do el programa del mes anterior. 

Examinemos además la rutina de la columna 
ATARI BASIC: la consola como opción de selec¬ 
ción del menú. La estamos aplicando e insertando 
con modificaciones a nuestro programa recién 
cargado. 

Los cambios se refieren a aumentar el número 
de opciones (lineas 600-608), modificar el incre¬ 
mento de la variable Y en uno para poder editar 
todas las opciones. Finalmente la selección no es 
a programas ejecutables sino a tareas especificas 
dentro del programa (subrutinas) y la instrucción 
ON...GOTO es fundamental para la direccionalidad. 

La rutina de la columna TORPEDO (página 
21) nos sirve sólo parcialmente, pues en ella se 
mantiene el orden de los elementos en el String, 
y la posición ordenada se registra en un arreglo 
de punteros. Por las condiciones especiales modi¬ 
ficamos en líneas para que el string sea el final. 

Las rutinas para almacenar en diskette, colum¬ 
na Dominando la 1050 (página 7) nos ayudan a 
salvar el string de DATA al disco (líneas 8000) y 
a cargar el string del disco hacia la memoria 
(líneas 8500). 

Para el caso de almacenar en casetera modifi¬ 
que las siguientes líneas: 

8000 REM Graba lista en casete 

8010 TRAP 8040: OPEN 42. 8, 0. "C:" 

8500 REM Carga lista de casete 

8510 TRAP 8560: CLOSE =#2: OPEN 4 2. 4, 0, "C:" 


10 REM MENU 3ELECCI0NAD0R POR CONSOLA 
15 CON5OLA=53279:N=10:E=3O:A=N*E 

20 DIM TIT$C25),PAUSAS(1).ARRES(A+2),E 

LEUS CE),NUHS(2),RES$(1),MEN0RS(El,MAYO 

R$ CE) 

25 DIM A(N) 

30 GRAPHICS 8 

40 P0SITI0N 13,3:? H M E N U u 

45 RESTORE 600 

58 F0R J=8 T0 8 

60 READ TITS 

70 POSITION 10,5+J 

80 ? TITS 

90 NEXT J 

100 POSITION 9,18:? selecci 

ona" 

118 POSITION 9,19:? " 


partida 


II 


120 G03U8 1000 

150 0N Y G05UB 4008,5500,4200,4500,510 

0,7500,8080,8500 

240 GOTO 30 

600 DATA 0 

601 DATA 0 

602 DATA B 

603 DATA Q HE 

604 DATA S 

605 DATA 0 


Inicializa LISTA 


Ordenar 13 LISTA 


Buscar Nohbre LISTA 


rihir LISTA 


Modifica NOMBRE 


Nuevo Nohbre 
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PRACTICA 


606 DATA Q 

607 DATA O! 

608 DATA g 


GRflB^¿iskme¿caserte 
CflRGú^^kerte^aisene 
OTRO PROGRAMÓ 


1000 POKE 752,1:X=6:Y=5:P05ITI0H x,Y:? 
»===fl» 

1010 C=PEEK(CONSOLA) 

1020 IF C<>7 THEX 1050 
1030 GOTO 1010 
1058 IF C<>5 THEX 1100 
1060 POSITIOH X,Y:? " 

1870 Y=Y*l:IF Y>13 THEX Y=5 
1080 P05ITI0X X,Y:? "===fi" 

1890 T=l A l:GOTO 1010 
1100 IF C<>6 THEX 1010 
1118 Y=Y-4 
1120 ? "X" 

1150 RETURK 

4000 REH 5UBRUTIXA CREA ARREGLO 5TRING 

4010 ARRES(1J=.ARRESfA>=" ARRES(2 

)=ARRES 

4020 PRIKT "DIGITE nunero de alumos d 
e su curso":IXPUT KUH$:K=VAL(XUH$) 

4025 IF H>50 THEX 4020 
4030 FOR J=1 TO X 

4040 PRIKT "DIGITE eleMento nunero "Jj 
4050 IKPUT ELEHS 
4060 L=LEK(ELEN$) 

4070 IXC=(J-1)*E 

4080 ARRES(1+IHC,E+IHC) =ELEH$ 

4090 KEXT J 

4095 ARRES(A+l,A+2)=KUM$ 

4100 RETURK 

4200 REH BUSCA UK ELEMENTO DEL ARREGLO 
4210 PRIXT "DIGITE nuiiero de elenento 


que busca ":IKPUT K 
4220 GOSUB 4300 
4230 ? ELEHS 
4240 GOSUB 9800 
4250 RETURK 

4300 REH SUBRUTIXA BUSCA UX ELEHEKTO 


DEL ARREGLO 

4310 REH CLAVE DE IXGRESO =K XUHERO DE 
L ELEHEKTO 
4320 ELEHS="" 

4330 IKC=tt-l)*E 

4340 ELEHS=ARRE$Cl+IXC,E+IXC) 

4358 RETURK 

4500 REH RUTIXA IHPRESORA 

4510 GRAPHICS 0:POSITIOX 10,2:? " HEXU 


4520 P05ITI0X 4,5:? " 0 TOTAL" 

4530 P05ITI0X 4,7:? " 0 PARCIAL" 

4540 POSITIOH 4,9:? " B X0HBRE5 AL AZ 


AR" 

4550 POSITIOH 4,11:? " B RETORHA AL H 
EXU" 

4600 POSITIOH 0,165? " DIGITE el nuner 
o que selecciona " 

4610 IKPUT H:IF IKTCHXl OR M>4 THEX 4 
600 

4620 REH DEBE IR A CARGAR LISTADO DEL 
PERISFERICO OUE USE 
4650 OH H GOTO 4700,4800,4900,30 
4700 HUH=MAL(ARRES CA+1,A+2)) 

4710 FOR J=1 TO HUH 
4720 K=J:GOSUB 4300 
4730 LPRIHT ELEHS 
4740 KEXT J 
4750 GOTO 4500 
4800 GRAPHICS 0 

4810 PRIXT "Digite nuMero de clave par 
a priiter alunno lista" 

4820 IHPUT PRIMER 

4830 PRIXT "Digite nunero de clave par 
a ULTIMO alumo lista" 

4840 IHPUT ULTIMO 

4850 FOR J=PRIHER TO ULTIMO 

4860 K=J:GOSUB 4308 

4878 LPRIHT ELEHS 

4880 KEXT J 

4890 GOTO 4500 

4908 GRAPHICS 0 

4918 PRIXT "Digite nunero de alumos q 
ue desea imriHir " 

4915 IHPUT HUH 

4920 FOR J=1 TO XUH 

4930 PRIXT "Digite nunero de clave par 

a alumo" 

4940 IHPUT K 
4950 GOSUB 4300 
4960 LPRIHT ELEHS 
4970 NEXT J 
4980 GOTO 4508 
5000 RETURK 

5100 REH RUTIXA MODIFICA UH HOMBRE 
5105 GRAPHICS 8 

5118 REH carga lista del Medio físico 
de grabación 

5120 POSITIOH 2,2:? "DIGITE la Clave p 
ara el HOMtRE que Modifica" 

5130 TRAP 5120:IHPUT K 

5140 H=VAL(ARRESCA*1,A*2)J 

5150 IF IHTCKXl OR K)H THEX ? "ERROR 

DE RAHGO":GOTO 5128 

5160 GOSUB 4300 

5170 ? :? ELEHS 


► 
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PRACTICA: continuación 


5180 ? "Corresponde al elemento a nodi 
ficar DIGITE 5/0 " 

5190 I0PIIT RE5$ 

5200 IF RE5$="N" OR RE5$="n" THE0 GRAP 
HIC5 0:GOTO 5120 

5218 ? ;? “-DIGITE ei noüóre ¡tüdificado 


5220 I0PUT ELEH$ 

5230 L=LENCELEH$J 

5240 INC=CK-i)*E 

5250 ARRES f1+INC,E*INC) =ELEH$ 

5260 RETIIRH 
5500 REH ORDENA 
5515 S=0 

5520 FOR J=1 TO 0-1 

5530 G05I1B 7000 

5540 IF C=0 THE0 5570 

5545 I0C=tJ-l)*E 

5548 ARRES Cl+INC,E+TNC)=HAY0RS 

5550 INC=J*E 

5555 ARRESC1*INC,E*INC)=MEN0RS 

5560 5=5+C 

5570 0EXT J 

5580 IF 5=0 THE0 5600 

5590 GOTO 5515 

5600 RETUR0 

7000 REH ORDE0A 

7005 C=0:P=A CJ):Q=A(J+l) 

7010 I0C=(J-1)*E 

7020 MENOR$=ARREStl+INC,E+INC) 

7030 INC=J« 

7040 HAYORS=ARRESíí+INC,E*INCJ 

7050 FOR K=1 TO E 

7060 ME=ASC(HENORSCK,K)) 

7070 HA=ASC CHAVORS(K, K) ) 

7080 IF HEOHA THEH 7095 
7090 NEXT K:C=0 
7095 IF HE>HA THEN C=i¡RETURN 
7098 RETURN 

8000 REH RUTINA ALHACENA LISTA EN DI5C 


0 

8010 TRAP 8040:OPEN U2,8,0,"D¡LI5TA.DA 


T" 

8020 PRINT 112; ARRES ;CL05E #2 
8030 ? "«LISTA DE CURSO grabada 
8035 GOSUB 9000¡RETURN 
8040 POSITION 0,10:? " 


II 


ricoCUHIDAD de DISCO 


ERROR 


NO DISPONIBLE 


8045 GOSUB 9000 
8050 GOTO 8000 
8060 POSITION 0,10:? 


i ERROR 


ri CO CUNIDAD de DISCO NO DISPONIBLE 


■i 


8500 REH RUTINA CARGA LISTA EN DISCO 
8505 ARRES= ,,n 

8510 TRAP 8560:CLO5E #2:OPEN tt2,4,0,"D 
¡LISTA.DAT" 

8520 TRAP 8540 

8525 ARRESCl)=" ":ARRESCA*2)=" "¡ARRES 
(2)=ARRE$¡J=1 


8530 FOR J=1 TO A+2 

8535 GET «2,B:ARRESIJ,J)=CHR$(B)¡NEXT 

J ¡CL05E m 

8540 ? "«LISTA ingresada a »ii4iiii:><: f 


8545 GOSUB 9000¡RETURN 
8560 POSITION 0,10:? ’1 


rico(UNIDAD de DISCO 


ERROR P 


NO DISPONIBLE 


ii 

8565 G05UB 9860 
8578 GOTO 8500 

9000 POSITION 0,20:? 1, ttHSBCBB»etur 


ara continuar 


9010 IMPUT RE5$ 
9020 RETURN 


ACTIVIDADES PARA EL PROXIMO MES: 

1. Modificar el programa para que puéda reco¬ 
nocer si es la primera vez que recibe datos o 
ya los contiene en medios magnéticos de gra¬ 
bación (casete - diskette). 

Es importante este punto para conservar los 
datos guardados de una sesión anterior. 

2. Diseñar el bloque para ingresar un nuevo 
número (en esta edición nos faltó espacio). 


Comentario de las rutinas: 

— El SORT es demasiado lento. Podemos acudir 
a la columna USR para ver que solución puede 
proporcionarnos. 

- El ingreso con GET es lento. Necesitamos op¬ 
timizar esta rutina. 

En el próximo número atacaremos el pro¬ 
blema en equipo e iniciaremos el ingreso de las 
notas a nuestro banco de notas. 

Gracias, hasta entonces, 
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La columna ST 

iniciará en el próximo número columnas de programación 


Disco Duro ATARI SH 204 


¿Ha pensado usted cuánto 
espacio físico ocupan 7.000 ho¬ 
jas de texto?. Tal vez el mismo 
espacio que necesita una enciclo¬ 
pedia completa. 

Esta es aproximadamente la 
capacidad de almacenamiento 
del Disco Duro ATARI SH 204 
de 20 megabytes, en otras pala¬ 
bras, 20.971.520 caracteres. 


Además se debe tener en con¬ 
sideración la velocidad de acceso 
a toda esa información. 

Los computadores ATARI se 
caracterizan por su velocidad en 
el manejo de la información, 
así como por la velocidad de 
comunicación con sus periféri¬ 
cos. De hecho ésta es una de las 
características más explotadas 


por ATARI Corp. en sus cam¬ 
pañas publicitarias. Si usted ha 
tenido la suerte de utilizar un 
computador ATARI 520 ó 1040 
ST habrá notado la asombrosa 
velocidad de traspaso de datos 
con las disketteras, aproximada¬ 
mente 256.000 bps (bits por se¬ 
gundo), lo que significa algo así 
como trece veces más rápido de 
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ST 


lo que es capaz de hacer una dis- 
kettera ATARI 1050 (a su vez 
mucho más veloz que la mayoría 
de las disketteras de computa¬ 
dores de similares característi¬ 
cas). Bueno, si esto le parece 
rápido, diremos que la velocidad 
de traspaso de un disco duro 
SH 204 es de 10.000.000 bps, o 
aproximadamente de 1,33 mega- 
bytes por segundo, esto quiere 
decir que se podría completar 
más de dos veces la memoria de 
un computador ATARI 520 ST 
en menos de un segundo. 

Tanta maravilla se debe a una 
puerta especial que ha sido ins¬ 
talada en los computadores ATA- 
Rl ST llamada DMA -Direct 
Memory Access o Acceso Direc¬ 
to de Memoria, que permite ve¬ 
locidades astronómicas en el 
traspaso de datos. Esta puerta es 
un atributo muy importante que 
instaló ATARI en sus computa¬ 
dores, ya que en la gran mayo¬ 
ría de los computadores es nece¬ 
sario instalar interfaces que per¬ 
mitan la comunicación entre 
computador y disco duro, pro¬ 
ceso que por lo general hace que 
el sistema sea más lento, y dicho 
sea de paso, más caro ya que si 
el computador no viene prepa¬ 
rado para manejar disco duro, 
deberá además comprar la inter¬ 
faz que le permita manejarlo. 

¿Y todo eso para qué? 

Ahora puede ser que usted 
se pregunte para qué sirve tanta 
capacidad y velocidad. Las apli¬ 
caciones pueden ser muchas, por 
ejemplo podemos pensar en una 
notaría, donde se procesan gran 
cantidad de documentos están¬ 
dar. Usando un SH 204 se po¬ 
drían almacenar todos y en va¬ 
rios tipos, para que al momento 
de presentarse la necesidad de 
hacer una escritura, ésta se tome 
desde el disco y sólo sea necesa¬ 
rio poner los nombres y tal vez 
hacer modificaciones. 

La estructura o forma de ma¬ 
nejar los datos dentro del disco 
duro es muy sencilla y fácil de 
usar, trabaja a base de directo¬ 
rios y subdirectorios que forman 
algo llamado estructura de árbol, 
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esto es, se empieza con un direc¬ 
torio principal con el sólo nom¬ 
bre de los subdirectorios, luego 
se abre un subdirectorio y ahí 
pueden estar los datos, docu¬ 
mentos o programas buscados, o 
pueden haber otros subdirecto¬ 
rios que pueden cumplir estas 
mismas características hasta en 
ocho niveles. 

Siguiendo con el ejemplo de 
la notaría podemos tener un di¬ 
rectorio principal que contenga 
tres subdirectorios: escrituras 
públicas, poderes y otros. Den¬ 
tro del subdirectorio escrituras 
públicas podríamos tener un do¬ 
cumento llamado Sociedad Li¬ 
mitada (una escritura tipo) y un 


subdirectorio llamado Socieda¬ 
des Anónimas que contenga dos 
documentos tipo, uno de socie¬ 
dades anónimas abiertas y otro 
de sociedades anónimas cerradas. 
Luego, en el segundo subdirec¬ 
torio del directorio principal 
poderes, podríamos tener un do¬ 
cumento (o más si se quiere) y 
así sucesivamente. 

Este sistema permite tener 
una gran cantidad de archivos 
ordenados de una forma racio¬ 
nal, con un rápido acceso y así 
lograr una gran eficiencia en el 
manejo de volúmenes de infor¬ 
mación, muy difícil de lograr 
en la forma tradicional. 



SOCIEDAD 


■ 

SOCIEDAD 

RBIERTfl 



CERRADA 



i 



4' 


Salida National Panasonic 1081 

/ 


Degas Elite 


DEGAS ELITE es la última 
palabra en sistemas de creación 
de diseños de arte gráfico en mi- 
croco mputadores. Este programa 
fue creado a fines de 1986 por 
Tom Hudson, quien ya era cono¬ 
cido por sus excelentes logros en 
la línea ATARI de 8 bits. 


DEGAS es la abreviación en 
inglés de sistema para diseño y 
entretención, y sin duda cumple 
con creces las expectativas que 
próvoca su nombre, ya que si 
usted no tiene mayor habilidad 
para el dibujo, las herramientas 
que ofrece DEGAS ELITE le 
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permitirán echar a volar su ima¬ 
ginación, para crear verdaderas 
obras de arte en unos pocos 
momentos. 

Las aplicaciones del arte grá¬ 
fico son innumerables y por lo 
demás es el primer medio de co¬ 
municación que utilizó el hom¬ 
bre. En el dibujo está la clave de 
una comprensión rápida y senci¬ 
lla, es un idioma más universal 
que cualquier otro, pero a veces, 
debido a la falta de medios téc¬ 
nicos o de habilidad, nos resulta 
difícil hacer representaciones 
pictóricas de nuestras ¡deas. 

DEGAS ELITE nos ofrece 
una excelente solución ante estas 
limitaciones, prestándonos ayu¬ 
da con una enorme cantidad de 
medios técnicos que resultan di¬ 
fíciles de imaginar (y mucho más 
fáciles de manejar) con métodos 
tradicionales de dibujo. Para que 
pueda vislumbrar las posibilida¬ 
des que ofrece, imagínese que 
tiene que dibujar un cartel para 
indicar la salida de algún lugar. 
Manualmente habría que tener 
algún tipo de pintura, reglas, 
compás, letras de molde o auto- 
adhesivas, etc. Con DEGAS ELI¬ 
TE sólo necesita de su computa¬ 
dor ATARI ST y una impresora 
con capacidad gráfica. 

Veamos un ejemplo 

El procedimiento de creación 
de este supuesto cartel podría 
ser el siguiente: luego de haber 
cargado el programa tomamos la 
opción de rectángulo y una bro¬ 
cha que se ajuste al tamaño de¬ 
seado, luego con el mouse seña¬ 
lamos la esquina superior e infe¬ 
rior y el computador traza las 
líneas. Así seguimos con el trián¬ 
gulo de la punta de la flecha, etc. 
Para las letras podemos elegir el 
tipo y el tamaño para luego 
tipear la leyenda y después pin¬ 
tar el dibujo usando el comando 
fill (llenado) para chorrear nues¬ 
tro dibujo con el color deseado, 
que puede ser elegido de una 
paleta de 512 colores. 

Una vez lista la flecha pode¬ 
mos girarla en la dirección que 
queramos e incluso distorsio¬ 


narla, dándole una forma dife¬ 
rente a la original. Luego llama¬ 
mos la opción de impresión y ha¬ 
cemos que nuestra impresora nos 
entregue un dibujo de alta cali¬ 
dad luego de pocos minutos de 
trabajo. 

Las posibilidades que entrega 
este programa están sólo limita¬ 
das por nuestra imaginación. Sus 
características técnicas son tan 
amplias que ni siquiera podemos 
pensar en un resumen de ellas, 


como dice el viejo dicho "una 
imagen dice más que mil pala¬ 
bras" y para tener idea de las 
múltiples aplicaciones que puede 
tener este programa en lo profe¬ 
sional o como una herramienta 
de arte hay que verlo. 


Lo invitamos a visitar su Cen¬ 
tro ATARI para empaparse de 
imágenes y colores con una de¬ 
mostración de DEGAS ELITE. # 
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PROGRAMAS 



NUTRICALC 

Dirigido a la dueña de casa que 
desee programar la alimentación 
de su grupo familiar. 

Descripción: Programa en un dis- 
kette con una base de 250 platos 
que puede programar y obtener 
las características calóricas ali¬ 
menticias del grupo familiar. 


COUNTER* ENG 


* OPTION * 


language 

lenguaje 


I.ANGUE 

SPRACHE 


SELECT 

START 


* LEVEL 

* BEGXN 


- -J 


CONTANDO 

Programa didáctico para que los 
pequeños de la casa aprendan a 
contar en cuatro idiomas : espa¬ 
ñol, inglés, francés y alemán. 
Descripción: Programa que inter¬ 
actúa en forma constante con el 
pequeño para lograr el concepto 
de los números asociados a figu¬ 
ras diferentes. 


Programas 
MUNDO ATARI 


O- 

I 



DIBUJANDO 

Programa para dibujar con joy- 
stick en diferentes modos grá¬ 
ficos. 

Descripción: Programa en un dis- 
kette en lenguaje FORTH, con 
un completo manual de uso, que 
permite crear figuras similares al 
ATARI ARTIST y al KOALA, 
pero la cantidad de modos grá¬ 
ficos de acceso es mayor. Nece¬ 
sita usar joystick. 


DELETREANDO 

Dirigido a los pequeños de la 
casa para que aprendan a recono¬ 
cer las letras. 

Descripción: Programa en un dis- 
kette que forma cuadros con di¬ 
ferentes figuras según los textos. 
Ideal para entretener a los pe¬ 
ques y utilizar positivamente el 
computador en la educación de 
su niño. 


MAIN MENU 


SELECCIONE UNA t>t LAS POSIBILIDADES! 

D O MEMORIZA PAGINA 101AL 
fí MFMORIZA PAGINA PARTIDA 
ü CUESTIONARIO 
O CREA TEÑIOS PAGINA 
B CREA TEXTOS MEDIA PAG. 

3 EDItOtt PAGINAS 
\i MODIFICA COLOR 


L 


US» 


la selección 


respo 
a» ME 


NU 



MEMORICE 

Dirigido a usuarios que deseen 
evaluar la capacidad de reten¬ 
ción actual de memoria y ejerci¬ 
tarla para aumentar su efectivi¬ 
dad. 

Descripción: Programa con fun¬ 
damento psicológico de aprendi¬ 
zaje utilizando la capacidad de 
la pantalla y programación para 
modificar textos que ejercitarán 
la recepción de la memoria. 


COPIADOR 

Programa que permite duplicar 
diskettes en forma rápida. 

Este programa permite copiar en 
dos etapas un diskette en densi¬ 
dad simple. Utiliza sólo 5 secto¬ 
res y debe cargarse con la tecla 
OPTION. 
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PROGRAMAS 


MUNDOATARI presenta en esta nueva sección un conjunto 
de programas para usuarios de Unidad de Disco 1050. 

Estos programas se adquieren directamente a la revista, 
mediante el cupón adicional adjunto al de suscripción. 

Escríbanos para saber sus necesidades de software. 


El precio unitario de cada diskette 
(salvo el primero de la lista) es: 

• público en general: $ 960 

• socios Club A TA Rl: $ 800 

Programa NUTRIOALC: 

• público en general: $2.100 

• socios Club ATAR I: $1.500 




BASE DATOS HL 

MENLI INICIAL 


5TATÜ5 


ARCHIVOS 


ARCH U i 
REGISTRO 


Oí VN10AI» 


i 



CORREO BASE 

Dirigido a aumentar la poten¬ 
cialidad del procesador de tex¬ 
tos MULTIEDITOR. 

Descripción: Permite que una 
carta creada especialmente se¬ 
gún indicaciones del manual 
pueda conectarse a una base de 
datos y modificar los campos 
seleccionados. 


BASE DE DATOS XL 

Potente base de datos que con¬ 
tiene técnicas avanzadas de pro¬ 
cesamiento de datos. 

Descripción: El manual permi¬ 
te usarla. Corno evidencia de su 
potencialidad diremos que nues¬ 
tro Departamento Comercial lo 
usa para manejar el registro de 
suscripciones. 


PLANILLA ELECTRONICA 

Consiste en una planilla electró¬ 
nica que permite realizar opera¬ 
ciones en forma automática. 

Descripción: Similar a las plani¬ 
llas actuales como VISICALC. 
Su potencialidad radica en la po¬ 
sibilidad de comunicación con 
el usuario a través de las venta¬ 
nas. Completo manual adjunto. 




t -Vi }ECTORL* 
t ~Et>XTA HECTOR 
X -HflPftMTCO 
4 -D1SASSEWUCR 

* -feUSOUCOA 

4 -COPIAVISC0 
7 -DIRECI ORIO 

• -RECORRE TMS 

$ -ÍRANSIORHA NUMERO 




FRACCIONES 

Dirigido a alumnos de cursos in¬ 
termedios entre 7o. Básico y 2o. 
Medio para ejercitarse en el do¬ 
minio de la multiplicación y di¬ 
visión de las fracciones. 


EXAMINADOR DE DISCOS 

Analiza el contenido de los sec¬ 
tores del diskette y otros. 

Descripción: Con un menú direc- 
cional permite tareas específicas 
en los diferentes sectores del dis¬ 
kette. Para usuarios con conoci¬ 
miento intermedio de programa¬ 
ción. 


MI ALFABETO 

Dirigido a los pequeños de la ca¬ 
sa para reconocer las letras del 
alfabeto castellano. 

Descripción: Programa interacti¬ 
vo que debe ser modelo para 
crear programas educativos, por 
la facilidad del ingenio desple¬ 
gado. Los pequeños se divertirán 
con MAX, el actor de este pro¬ 
grama. 
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PROGRAMAS: continuación 








FIGHT NIGHT es un juego 
muy interesante, creado en 1985, 
cuyo tema es el boxeo. 

En la presentación aparece 
una ilustración del presidente 
Reagan y esposa llegando al es¬ 
tadio. 

El juego presenta un menú 
con 5 opciones: 


Nombre 

: Fight Night 

Firma 

: A rcade 

Memoria 

: 64 Kb 


Fight Night 


— Main event, en el cual debes 
dirigir a tu boxeador contra 5 
púgiles, con distintas caracterís¬ 
ticas físicas: Dipstick, boxeador 
delgado y corto de vista; Kid 
Castro, boxeador muy centroa¬ 
mericano, lento pero letal con 
sus golpes a la cara; Hu Him, pú¬ 
gil oriental muy diestro en los 
golpes de pie; British Bulldog, 
boxeador elegante de origen bri¬ 
tánico, que es una verdadera 
aplanadora, y Bronx Bomber, 
una bestia de 150 kilos, que usa 
todo tipo de trucos para vencer. 

Si logras ganarle a este últi¬ 
mo boxeador te adjudicarás el 
cínturón.de campeón. 

— Boxing Construction, opción 
para construir tus propios boxea¬ 
dores. 

— Training, para entrenarte con 
un saco de arena. 

— Sparring, para enfrentarte con 
cualquiera de los boxeadores dis¬ 
ponibles en memoria. 

— Tournament, para seleccionar 
los boxeadores que participarán 
en otro torneo, también por el 
cinturón "Fight Night". 

En resumen, se trata de un 
juego muy dinámico, sin mucho 
grado de complejidad, y con el 
cual puedes pasar momentos ver¬ 
daderamente entretenidos. 
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el lugar que 
se merece. 


n 


1. Mueble 
Comp. 
Americano 
(7519/10). 




2. Mesa TV 
Video Comp, 
con bandeja 
deslizable 
(7523/11). 



500 


3. Secreter, 
con puerta 
abatible y llave 
para proteger 
los 

componentes 
de su 
computador 
(7528/11). 


* 1.000 


*930 


5. Centro 
modular, 
compuesto de 
escritorio base 
(7527/11), 
porta TV 
(7526/11), 
repisa lateral 
(7525/11), 
cajón (7521/10) 
y mesa 
impresora 
(7524/11). 




4. Escritorio 
Melody, con 
bandeja 
deslizable 
(7580/11). 


*670 


750 


Productos 
con el sello 
de calidad 
CIC. 



CICFORMATICA 

LINEA DE MUEBLES 
PARA COMPUTADORES 
PERSONALES. 




Adquiera estos modelos en las Tiendas CIC-Hogar, o en los principales Distribuidores del país 



































DISKETTERA 

ATARI 1050 



La base de la 
computación es la 
velocidad. La rapidez en 
que los procesos se llevan 
a cabo. F.l acceso veloz a 


almacenando hasta 127 
Kbytes de información 
sobre un diskette de 5'A 
pulgadas de doble- 
densidad y una cara de 

4 


la información requerida. 
Sin demora, sin esperas. 

ATARI sabe esto 
como nadie, y una muestra 
de velocidad está en este 
aviso. 1.a DISKTTTKRA 
ATARI1050, que 
reproduce y graba en 
pocos segundos, 


grabación. 

Cuando el trabajo 
bueno es rápido, es 
doblemente bueno. 

Ponga a prueba la 
velocidad de la 
D1SKF.TTERA ATARJ 1050. 
No espere más. 


ATA DI CDELSfi 

A I r\ IVI COMPUTACION 

COMPUTADORES Sinónimo de garantía y servicio. 



































